let
raise_located loc e = raise (
Error
(loc, e))