From 33338cf1019999c5c17fcde8c0dbfd4c26ed2b7a Mon Sep 17 00:00:00 2001
From: msozeau
Date: Thu, 4 Dec 2008 18:42:26 +0000
Subject: Do not catch _all_ exceptions in setoid unification.

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

diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4
index 21be8296c8..8700019ede 100644
--- a/tactics/class_tactics.ml4
+++ b/tactics/class_tactics.ml4
@@ -866,7 +866,7 @@ let unify_eqn env sigma hypinfo t =
 	with Not_found ->
 	  (prf, (car, inverse car rel, c2, c1))
     in Some (env', res)
-  with _ -> None
+  with e when catchable e -> None
 
 let unfold_impl t =
   match kind_of_term t with
-- 
cgit v1.2.3