diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-09 11:46:15 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-09 11:46:15 +0000 |
| commit | fc124c31c6744802d3d3158f79d5e85899370add (patch) | |
| tree | db908e7a581a4d3a41dce11f7c3d4b0ddb3e7e23 /library/nameops.ml | |
| parent | ce0742280919c8a607937b6b927c62f16485a593 (diff) | |
error
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4328 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nameops.ml')
| -rw-r--r-- | library/nameops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 92fdcb5e2..d2ee86dbe 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -29,7 +29,7 @@ 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 - failwith + error ("The string " ^ s ^ " is not an identifier: it contains only digits or _") else let c = Char.code (String.get s (n-1)) in |