diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-03 14:39:10 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-03 14:39:10 +0000 |
commit | d5b13126177a7f30069d0512f1d08b34e00e3fee (patch) | |
tree | 571cabe867487e6b3b9464fca498e49589d4bdf6 /proofs/clenvtac.ml | |
parent | f5ab2e37b0609d8edb8d65dfae49741442a90657 (diff) |
Fix for bug #3017: wrong handling of the unresolvability status
in clenvtac and error-printing code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16383 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/clenvtac.ml')
-rw-r--r-- | proofs/clenvtac.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 18652b767..b31d3a5fc 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -61,8 +61,9 @@ let clenv_refine with_evars ?(with_classes=true) clenv gls = let clenv = clenv_pose_dependent_evars with_evars clenv in let evd' = if with_classes then - Typeclasses.resolve_typeclasses ~filter:Typeclasses.all_evars + let evd' = Typeclasses.resolve_typeclasses ~filter:Typeclasses.all_evars ~fail:(not with_evars) clenv.env clenv.evd + in Typeclasses.mark_unresolvables evd' else clenv.evd in let clenv = { clenv with evd = evd' } in |