diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-03 23:33:15 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-03 23:33:15 +0000 |
| commit | 72364c1745644dd452cf40ef0a662bbaa9fd400f (patch) | |
| tree | ac33aa96420487bc54162a7175ffb5c9b5a20adc /parsing | |
| parent | 63eb223bc3cfdff1a985213a528c12728340323a (diff) | |
empty token in terminal is a user error not an anomaly (bug 3118)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17047 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/lexer.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/lexer.ml4 b/parsing/lexer.ml4 index b476f5303..d37331449 100644 --- a/parsing/lexer.ml4 +++ b/parsing/lexer.ml4 @@ -673,7 +673,7 @@ let strip s = let terminal s = let s = strip s in - let () = match s with "" -> failwith "empty token" | _ -> () in + let () = match s with "" -> Errors.error "empty token." | _ -> () in if is_ident_not_keyword s then IDENT s else if is_number s then INT s else KEYWORD s |