diff options
| author | ppedrot | 2013-09-27 19:20:27 +0000 |
|---|---|---|
| committer | ppedrot | 2013-09-27 19:20:27 +0000 |
| commit | 11ca3113365639136cf65a74c345080a9434e69b (patch) | |
| tree | da263c149cd1e90bde14768088730e48e78e4776 /parsing | |
| parent | ee2f85396fa0cef65bc4295b5ac6c259e83df134 (diff) | |
Removing a bunch of generic equalities.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16806 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/pcoq.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index d74de5ac60..79228e9462 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -756,7 +756,7 @@ let coincide s pat off = !break let tactic_level s = - if Int.equal (String.length s) 7 && String.sub s 0 6 = "tactic" then + if Int.equal (String.length s) 7 && coincide s "tactic" 0 then let c = s.[6] in if '5' >= c && c >= '0' then Some (Char.code c - 48) else None else None |