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