Promote evar_defs to evar_map (in Evd)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12502 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

diff --git a/toplevel/classes.ml b/toplevel/classes.ml
index 8412a39f3..9c4f759c9 100644
--- a/toplevel/classes.ml
+++ b/toplevel/classes.ml
@@ -173,7 +173,7 @@ let new_instance ?(global=false) ctx (instid, bk, cl) props ?(generalize=true)
 	    Namegen.next_global_ident_away i (Termops.ids_of_context env)
   in
   let env' = push_rel_context ctx' env in
-  evars := Evarutil.nf_evar_defs !evars;
+  evars := Evarutil.nf_evar_map !evars;
   evars := resolve_typeclasses env !evars;
   let sigma =  !evars in
   let subst = List.map (Evarutil.nf_evar sigma) subst in
@@ -244,7 +244,7 @@ let new_instance ?(global=false) ctx (instid, bk, cl) props ?(generalize=true)
 	    Evarutil.nf_isevar !evars t
 	in
 	let term = Termops.it_mkLambda_or_LetIn app ctx' in
-	evars := Evarutil.nf_evar_defs !evars;
+	evars := Evarutil.nf_evar_map !evars;
 	let term = Evarutil.nf_isevar !evars term in
 	let evm = undefined_evars !evars in
 	Evarutil.check_evars env Evd.empty !evars termtype;