diff options
| author | ppedrot | 2013-03-12 20:59:33 +0000 |
|---|---|---|
| committer | ppedrot | 2013-03-12 20:59:33 +0000 |
| commit | 198586739090e63ad65051449f1a80f751c4c08b (patch) | |
| tree | 9247931c1505bcf8549d5daa4547b227ebe7ae47 /pretyping/typeclasses.ml | |
| parent | 7c281301637f783beaec858a5fee665e99a6813b (diff) | |
Allowing different types of, not to be mixed, generic Stores through
functor application. Rewritten the interface btw.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16267 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index 0fe13ef9ca..c477013d88 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -485,14 +485,13 @@ let is_implicit_arg = function *) let resolvable = Store.field () -open Store.Field let is_resolvable evi = assert (match evi.evar_body with Evar_empty -> true | _ -> false); - Option.default true (resolvable.get evi.evar_extra) + Option.default true (Store.get evi.evar_extra resolvable) let mark_resolvability_undef b evi = - let t = resolvable.set b evi.evar_extra in + let t = Store.set evi.evar_extra resolvable b in { evi with evar_extra = t } let mark_resolvability b evi = |