From 7e324da8bd211f01593952ac51bd309e80c7546a Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 8 Feb 2008 16:54:47 +0000
Subject: Add more information to IllFormedRecBody exceptions, to show the
 exact definition on which it is failing (useful for Program definitions and
 others too).

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

(limited to 'tactics')

diff --git a/tactics/decl_proof_instr.ml b/tactics/decl_proof_instr.ml
index 1d5ab017ce..c4b7ad13c0 100644
--- a/tactics/decl_proof_instr.ml
+++ b/tactics/decl_proof_instr.ml
@@ -1471,7 +1471,7 @@ let rec postprocess pts instr =
 	      goto_current_focus_or_top (mark_as_done pts)
  	    with 
 		Type_errors.TypeError(env,
-				      Type_errors.IllFormedRecBody(_,_,_)) ->
+				      Type_errors.IllFormedRecBody(_,_,_,_,_)) ->
 		  anomaly "\"end induction\" generated an ill-formed fixpoint"
 	end
     | Pend _ -> 
-- 
cgit v1.2.3