From 170e88817206ada3812d2fc973f4423dda113f04 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 12 Oct 2004 10:13:15 +0000
Subject: 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
---
 library/nameops.ml | 4 ++--
 1 file 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 
-- 
cgit v1.2.3