diff options
| -rw-r--r-- | pretyping/clenv.ml | 4 | ||||
| -rw-r--r-- | test-suite/csdp.cache | bin | 44878 -> 45094 bytes |
2 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml index e838cb2e06..a3106b3980 100644 --- a/pretyping/clenv.ml +++ b/pretyping/clenv.ml @@ -406,9 +406,11 @@ 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 + | Exc_located (_,Type_errors.TypeError (_,TypeError.ActualType _)) | PretypeError (_,NotClean _) as e -> raise e | e when precatchable_exception e -> - TypeNotProcessed, clenv, c +(* TypeNotProcessed, clenv, c*) + raise e let clenv_assign_binding clenv k (sigma,c) = let k_typ = clenv_hnf_constr clenv (clenv_meta_type clenv k) in diff --git a/test-suite/csdp.cache b/test-suite/csdp.cache Binary files differindex 645de69cda..17133cc8de 100644 --- a/test-suite/csdp.cache +++ b/test-suite/csdp.cache |