diff options
| author | herbelin | 2009-11-12 20:08:43 +0000 |
|---|---|---|
| committer | herbelin | 2009-11-12 20:08:43 +0000 |
| commit | 0024fe475225340d652d15e68d1e4f657d76cc08 (patch) | |
| tree | 54e2fa195bfb95e5de6ef8719ebf377660de5573 | |
| parent | 7216342d32fdc05b3fc37f7a76bb1031b89c7e02 (diff) | |
Backtrack on fixing #2167
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12513 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/clenv.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml index 79b0c5a026..fe84141eef 100644 --- a/pretyping/clenv.ml +++ b/pretyping/clenv.ml @@ -406,11 +406,9 @@ let clenv_unify_binding_type clenv c t u = let evd,c = w_coerce_to_type (cl_env clenv) clenv.evd c t u in TypeProcessed, { clenv with evd = evd }, c with - | Stdpp.Exc_located (_,Type_errors.TypeError (_,Type_errors.ActualType _)) | PretypeError (_,NotClean _) as e -> raise e | e when precatchable_exception e -> -(* TypeNotProcessed, clenv, c*) - raise e + TypeNotProcessed, clenv, c let clenv_assign_binding clenv k (sigma,c) = let k_typ = clenv_hnf_constr clenv (clenv_meta_type clenv k) in |