diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-13 11:15:15 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-13 11:15:15 +0000 |
| commit | e031aaf7d7412884315c08e64816fa43ce8794ca (patch) | |
| tree | ec8441a4f4f151f4c1b292b3ab2d55fe57c15433 /parsing | |
| parent | 02287bddfe994ab4c540599aa4915b6855f94256 (diff) | |
New fix for is_ident_not_keyword.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14410 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/lexer.ml4 | 4 |
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 = |