diff options
Diffstat (limited to 'otherlibs/labltk/compiler/ppparse.ml')
| -rw-r--r-- | otherlibs/labltk/compiler/ppparse.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/otherlibs/labltk/compiler/ppparse.ml b/otherlibs/labltk/compiler/ppparse.ml index 3d1ee2af4..630d675de 100644 --- a/otherlibs/labltk/compiler/ppparse.ml +++ b/otherlibs/labltk/compiler/ppparse.ml @@ -19,18 +19,18 @@ exception Error of string let parse_channel ic = let lexbuf = Lexing.from_channel ic in try - Ppyac.code_list Pplex.token lexbuf + Ppyac.code_list Pplex.token lexbuf with | Pplex.Error s -> - let loc_start = Lexing.lexeme_start lexbuf + let loc_start = Lexing.lexeme_start lexbuf and loc_end = Lexing.lexeme_end lexbuf in - raise (Error (Printf.sprintf "parse error at char %d, %d: %s" + raise (Error (Printf.sprintf "parse error at char %d, %d: %s" loc_start loc_end s)) | Parsing.Parse_error -> - let loc_start = Lexing.lexeme_start lexbuf + let loc_start = Lexing.lexeme_start lexbuf and loc_end = Lexing.lexeme_end lexbuf in - raise (Error (Printf.sprintf "parse error at char %d, %d" + raise (Error (Printf.sprintf "parse error at char %d, %d" loc_start loc_end)) ;; |