diff options
| author | msozeau | 2008-12-04 18:42:26 +0000 |
|---|---|---|
| committer | msozeau | 2008-12-04 18:42:26 +0000 |
| commit | 33338cf1019999c5c17fcde8c0dbfd4c26ed2b7a (patch) | |
| tree | 8c9b907275e5285aa9b09285b82c7036a7493efd | |
| parent | 2bc1fb93717cd215d7d8095ac26278f2e291965d (diff) | |
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
| -rw-r--r-- | tactics/class_tactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |