diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-11 13:52:28 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-11 13:52:28 +0000 |
| commit | 530eb0b1cbaf8d918aafee6f1aa4849804eebdb7 (patch) | |
| tree | a191bedc95ec97ecd1e9e3a147fc21dfe6e2ef09 /pretyping | |
| parent | 29a4862c6fe2d05eba8ad13f452638e226c755b1 (diff) | |
Fixing bug #2167 + attempt to test the compatibility of a more robust
check of unconvertibility when providing "with" arguments to "apply".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12498 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/clenv.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml index e838cb2e0..a3106b398 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 |