Project

General

Profile

Revision 6affc9f5 src/parse.ml

View differences:

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