diff options
| author | msozeau | 2013-04-18 15:26:08 +0000 |
|---|---|---|
| committer | msozeau | 2013-04-18 15:26:08 +0000 |
| commit | c0b7b5b8127955fa2cb5d70bd0a84aec50f8e015 (patch) | |
| tree | ae0d4b683aa3548c928ec8ef93be4b61996b9822 /proofs | |
| parent | ae1960c4fb1c65cd68fe39bc2f6d180682625d72 (diff) | |
Finer fix for bug 3017, mark unresolvability only of goals that are
instances of metas in clenvtac. Makes Math-Classes compile again.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16429 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenvtac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index b31d3a5fc9..389075c9ae 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -63,7 +63,7 @@ let clenv_refine with_evars ?(with_classes=true) clenv gls = if with_classes then let evd' = Typeclasses.resolve_typeclasses ~filter:Typeclasses.all_evars ~fail:(not with_evars) clenv.env clenv.evd - in Typeclasses.mark_unresolvables evd' + in Typeclasses.mark_unresolvables ~filter:Typeclasses.all_goals evd' else clenv.evd in let clenv = { clenv with evd = evd' } in |