typo Mls_{P->p}arser

This commit is contained in:
Léonard Gérard 2010-07-01 14:42:52 +02:00
parent a7e34a0a17
commit de16b4f178

View file

@ -22,7 +22,7 @@ let parse parsing_fun lexing_fun lexbuf =
with
| Mls_lexer.Lexical_error(err, pos1, pos2) ->
lexical_error err (Loc(pos1, pos2))
| Mls_Parser.Error ->
| Mls_parser.Error ->
let pos1 = Lexing.lexeme_start lexbuf
and pos2 = Lexing.lexeme_end lexbuf in
let l = Loc(pos1,pos2) in