diff options
| author | ppedrot | 2012-11-22 18:09:38 +0000 |
|---|---|---|
| committer | ppedrot | 2012-11-22 18:09:38 +0000 |
| commit | 2e43b03b0bb88bd3b4cb7695d5079c51ca41b0a7 (patch) | |
| tree | 2153243e54e6c729462b700bc2118095f40c592a /library/nameops.ml | |
| parent | 62789dd765375bef0fb572603aa01039a82dd3b5 (diff) | |
Monomorphization (library)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15993 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 62665e8afe..461e7a4059 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -33,7 +33,7 @@ let cut_ident skip_quote s = slen else let c = Char.code (String.get s (n-1)) in - if Int.equal c code_of_0 && n <> slen then + if Int.equal c code_of_0 && not (Int.equal n slen) then numpart (n-1) n' else if code_of_0 <= c && c <= code_of_9 then numpart (n-1) (n-1) |