diff options
| author | herbelin | 2004-07-28 10:11:41 +0000 |
|---|---|---|
| committer | herbelin | 2004-07-28 10:11:41 +0000 |
| commit | 3a7c443b2181a0053abb8bf0f34fa7867710a228 (patch) | |
| tree | b098aa3ea0da999bf3868c06a7a6c75a388ab021 | |
| parent | 41d16214621a1fa741e0662745e818c6e178e19e (diff) | |
Bug tactique fix
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5981 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_tacticnew.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_tacticnew.ml4 b/parsing/g_tacticnew.ml4 index b0ea9d8352..4a62631391 100644 --- a/parsing/g_tacticnew.ml4 +++ b/parsing/g_tacticnew.ml4 @@ -78,7 +78,7 @@ open Tactic let mk_fix_tac (loc,id,bl,ann,ty) = let n = match bl,ann with - [([_],_)], None -> 0 + [([_],_)], None -> 1 | _, Some x -> let ids = List.map snd (List.flatten (List.map fst bl)) in (try list_index (snd x) ids |