diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-14 13:49:42 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-14 13:49:42 +0000 |
| commit | c8da19b11952126f09b9d32002534ce91ae0d47c (patch) | |
| tree | 0c83bb3864f108e6a3276d52d520935f37d1ec10 /proofs/evar_refiner.ml | |
| parent | be7331b6cd0c37ec34d0cd867c906a5219bcbd94 (diff) | |
rattrapage exceptions autres que UserError
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@254 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/evar_refiner.ml')
| -rw-r--r-- | proofs/evar_refiner.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index e43d51966..ec23d3258 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -115,7 +115,8 @@ let w_Underlying wc = (ts_it (ids_it wc)).decls let w_type_of wc c = ctxt_type_of (ids_it wc) c let w_env wc = get_env (ids_it wc) let w_hyps wc = var_context (get_env (ids_it wc)) -let w_ORELSE wt1 wt2 wc = try wt1 wc with UserError _ -> wt2 wc +let w_ORELSE wt1 wt2 wc = + try wt1 wc with e when catchable_exception e -> wt2 wc let w_Declare sp c (wc:walking_constraints) = begin match c with |