From cab1bbad4fb93a18cefd6c3609408de39e8a1eef Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 24 Oct 2007 14:36:05 +0000
Subject: Fix define body bug fix

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

diff --git a/contrib/subtac/subtac.ml b/contrib/subtac/subtac.ml
index 22b0ac68c2..4617ca9777 100644
--- a/contrib/subtac/subtac.ml
+++ b/contrib/subtac/subtac.ml
@@ -115,7 +115,7 @@ let subtac (loc, command) =
 	VernacDefinition (defkind, (locid, id), expr, hook) -> 
 	    (match expr with
 		 ProveBody (bl, c) -> ignore(Subtac_pretyping.subtac_proof env isevars id bl c None)
-	       | DefineBody (cbl, bl, c, tycon) -> 
+	       | DefineBody (bl, _, c, tycon) -> 
 		   ignore(Subtac_pretyping.subtac_proof env isevars id bl c tycon))
       | VernacFixpoint (l, b) -> 
 	  let _ = trace (str "Building fixpoint") in
-- 
cgit v1.2.3