diff options
| -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 b476f53039..d373314499 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 |