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