typo Mls_{P->p}arser
This commit is contained in:
parent
a7e34a0a17
commit
de16b4f178
|
@ -22,7 +22,7 @@ let parse parsing_fun lexing_fun lexbuf =
|
||||||
with
|
with
|
||||||
| Mls_lexer.Lexical_error(err, pos1, pos2) ->
|
| Mls_lexer.Lexical_error(err, pos1, pos2) ->
|
||||||
lexical_error err (Loc(pos1, pos2))
|
lexical_error err (Loc(pos1, pos2))
|
||||||
| Mls_Parser.Error ->
|
| Mls_parser.Error ->
|
||||||
let pos1 = Lexing.lexeme_start lexbuf
|
let pos1 = Lexing.lexeme_start lexbuf
|
||||||
and pos2 = Lexing.lexeme_end lexbuf in
|
and pos2 = Lexing.lexeme_end lexbuf in
|
||||||
let l = Loc(pos1,pos2) in
|
let l = Loc(pos1,pos2) in
|
||||||
|
|
Loading…
Reference in a new issue