aboutsummaryrefslogtreecommitdiffhomepage
path: root/parsing/lexer.ml4
diff options
context:
space:
mode:
Diffstat (limited to 'parsing/lexer.ml4')
-rw-r--r--parsing/lexer.ml44
1 files changed, 1 insertions, 3 deletions
diff --git a/parsing/lexer.ml4 b/parsing/lexer.ml4
index 6073860c0..e351061dc 100644
--- a/parsing/lexer.ml4
+++ b/parsing/lexer.ml4
@@ -627,9 +627,7 @@ END
(** Terminal symbols interpretation *)
let is_ident_not_keyword s =
- match s.[0] with
- | 'a'..'z' | 'A'..'Z' | '_' -> is_ident s && not (is_keyword s)
- | _ -> false
+ is_ident s && not (is_keyword s)
let is_number s =
let rec aux i =