let raise_parse_error state location err_msg = let parse_error = { location = location; err_msg = err_msg; parse_state = state; } in raise (Parse_error parse_error)