diff options
| author | msozeau | 2012-06-21 11:41:13 +0000 |
|---|---|---|
| committer | msozeau | 2012-06-21 11:41:13 +0000 |
| commit | 9d869158c7f129848fd51633b45f4c168e8027ef (patch) | |
| tree | 5881c0aca51150f493b749e0b814c8b782927ce2 | |
| parent | 99287db383f84447db5385c3d99bb62d3810b797 (diff) | |
Fix bug #2808: wrong handling of evars in Instance command.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15468 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/classes.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index dfbc95356e..31a02758f1 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -273,7 +273,8 @@ let new_instance ?(abstract=false) ?(global=false) ctx (instid, bk, cl) props Evarutil.check_evars env Evd.empty !evars termtype in let term = Option.map (Evarutil.nf_evar !evars) term in - let evm = undefined_evars !evars in + let evm = Evarutil.nf_evar_map_undefined !evars in + let evm = undefined_evars evm in if Evd.is_empty evm && term <> None then declare_instance_constant k pri global imps ?hook id (Option.get term) termtype else begin |