diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-08-22 08:55:41 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-08-22 08:55:41 +0000 |
| commit | 579e1523e94f7fef3d11346207161beea667b9dc (patch) | |
| tree | c41dd7d0041ef03ce58e40772b3a3ac612c9e7f7 /driver/errors.ml | |
| parent | 23686e53207f43ee1b913095acc964063a36281f (diff) | |
Meilleures erreurs de syntaxe pour les parentheses mal fermees, etc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1689 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'driver/errors.ml')
| -rw-r--r-- | driver/errors.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/driver/errors.ml b/driver/errors.ml index c93f6f3eb..6b032f782 100644 --- a/driver/errors.ml +++ b/driver/errors.ml @@ -24,9 +24,8 @@ let report_error exn = Lexer.Error(err, start, stop) -> Location.print {loc_start = start; loc_end = stop}; Lexer.report_error err - | Parse.Error(start, stop) -> - Location.print {loc_start = start; loc_end = stop}; - print_string "Syntax error" + | Syntaxerr.Error err -> + Syntaxerr.report_error err | Env.Error err -> Env.report_error err | Typecore.Error(loc, err) -> |