diff options
| -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 |