diff options
Diffstat (limited to 'lib/qparser/lex_state.ml')
| -rw-r--r-- | lib/qparser/lex_state.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/qparser/lex_state.ml b/lib/qparser/lex_state.ml index 3cf757d..4b102b8 100644 --- a/lib/qparser/lex_state.ml +++ b/lib/qparser/lex_state.ml @@ -4,11 +4,6 @@ exception Out_of_context -let pr_err buffer = - let location, _ = Lexbuf.positions buffer in - let line = location.Lexing.pos_lnum and file = location.Lexing.pos_fname in - Format.eprintf "Error found at : %s:%d\n" file line - let space = [%sedlex.regexp? ' ' | '\t'] let spaces = [%sedlex.regexp? Plus space] let single_quote = [%sedlex.regexp? '\''] @@ -108,9 +103,7 @@ and quotedStringWraper : Lexbuf.stringWraper = | single_quote -> Lexbuf.leave_state buffer; TEXT_MARKER - | _ -> - pr_err buffer; - raise Not_found); + | _ -> raise Not_found); } and dQuotedStringWraper : Lexbuf.stringWraper = |