Revision 6affc9f5 src/parse.ml
src/parse.ml | ||
---|---|---|
34 | 34 |
Parsing.clear_parser (); |
35 | 35 |
ast |
36 | 36 |
with |
37 |
Parsing.Parse_error ->
|
|
38 |
let loc = Location.curr lexbuf in
|
|
39 |
raise (Syntax_err loc)
|
|
37 |
| Parsing.Parse_error ->
|
|
38 |
let loc = Location.curr lexbuf in |
|
39 |
raise (Syntax_err loc) |
|
40 | 40 |
|
41 | 41 |
let prog parse lex = wrap parse lex |
42 | 42 |
|
Also available in: Unified diff