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