diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-30 09:19:30 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-30 09:19:30 +0000 |
commit | 0577c06262f89785b41f110840a1646c7981fe12 (patch) | |
tree | 46b8bb51c71429b0a2c3710d842af4186bc410ce /toplevel | |
parent | 3378c2cc6a403e78f3fd800dcaca67a82bfb9b4d (diff) |
backtrack sur le lexeur de la V6
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1289 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/errors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/toplevel/errors.ml b/toplevel/errors.ml index 6c76e5e88..cde9421d0 100644 --- a/toplevel/errors.ml +++ b/toplevel/errors.ml @@ -76,6 +76,10 @@ let rec explain_exn_default = function hOV 0 [< 'sTR "Syntax error: Unterminated comment." >] | Lexer.Error Unterminated_string -> hOV 0 [< 'sTR "Syntax error: Unterminated string." >] + | Lexer.Error Undefined_token -> + hOV 0 [< 'sTR "Syntax error: Undefined token." >] + | Lexer.Error (Bad_token s) -> + hOV 0 [< 'sTR "Syntax error: Bad token"; 'sPC; 'sTR s; 'sTR "." >] | reraise -> hOV 0 [< 'sTR "Anomaly: Uncaught exception "; 'sTR (Printexc.to_string reraise); report () >] |