aboutsummaryrefslogtreecommitdiffhomepage
path: root/proofs/clenvtac.ml
diff options
context:
space:
mode:
authorGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-04-03 14:39:10 +0000
committerGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-04-03 14:39:10 +0000
commitd5b13126177a7f30069d0512f1d08b34e00e3fee (patch)
tree571cabe867487e6b3b9464fca498e49589d4bdf6 /proofs/clenvtac.ml
parentf5ab2e37b0609d8edb8d65dfae49741442a90657 (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.ml3
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