Fixed missing error reporting.

This commit is contained in:
Adrien Guatto 2010-06-30 14:11:13 +02:00
parent 7d6ed5d30f
commit 6e9cd7f490

View file

@ -20,7 +20,7 @@ let parse parsing_fun lexing_fun lexbuf =
with
| Hept_lexer.Lexical_error(err, pos1, pos2) ->
lexical_error err (Loc(pos1, pos2))
| Parsing.Parse_error ->
| Hept_parser.Error ->
let pos1 = Lexing.lexeme_start lexbuf
and pos2 = Lexing.lexeme_end lexbuf in
let l = Loc(pos1,pos2) in