From 3a7c443b2181a0053abb8bf0f34fa7867710a228 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 28 Jul 2004 10:11:41 +0000
Subject: Bug tactique fix

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5981 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_tacticnew.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3