From 45870d709209aecf94bb5f6915672ce8043e2f48 Mon Sep 17 00:00:00 2001
From: clrenard
Date: Sat, 15 Nov 2003 15:21:38 +0000
Subject: Amelioration du message d'erreur en cas de tentative d'instanciation
 avec de mauvaise variables lors de l'unification.

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

(limited to 'proofs/clenv.ml')

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index f59226e893..d5df3bc958 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -574,7 +574,7 @@ and w_resrec metas evars wc =
              	    | App (f,cl) when isConst f ->
 			let wc' = mimick_evar f (Array.length cl) evn wc in
 			w_resrec metas evars wc'
-		    | _ -> error "w_Unify"))
+		    | _ -> raise ex (* error "w_Unify" *)))
 	| _ -> anomaly "w_resrec"
 
 
-- 
cgit v1.2.3