let raise_unexpected_char parse_state location buf_pos c = let err_msg = sprintf "unexpected character: '%c'" c in raise_parse_error parse_state location buf_pos err_msg