diff options
| author | herbelin | 2004-10-12 10:13:15 +0000 |
|---|---|---|
| committer | herbelin | 2004-10-12 10:13:15 +0000 |
| commit | 170e88817206ada3812d2fc973f4423dda113f04 (patch) | |
| tree | e893f0535c9d37eb24609f16438992d10eb2821f | |
| parent | 71cdbefb8ce0f20e21f2c1dcd02f914fad24614c (diff) | |
Prise en compte dans cut_ident des idents de la form _23 qui sont officiellement autorisés
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6205 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/nameops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 24499209bb..efe149a1f9 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -33,8 +33,8 @@ let cut_ident skip_quote s = (* [n'] is the position of the first non nullary digit *) let rec numpart n n' = if n = 0 then - error - ("The string " ^ s ^ " is not an identifier: it contains only digits or _") + (* ident made of _ and digits only [and ' if skip_quote]: don't cut it *) + slen else let c = Char.code (String.get s (n-1)) in if c = code_of_0 && n <> slen then |