diff options
author | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-04 17:57:23 +0000 |
---|---|---|
committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-04 17:57:23 +0000 |
commit | 162f06f2d580bfcbda9976296e95c6e581c1dc92 (patch) | |
tree | f1c164a5869338b050af731623e4fea8572bb899 /toplevel | |
parent | e892cdd483eca0c880f338f1e4fd7deecdfc5501 (diff) |
Two [Evd.fold] turned into [Evd.fold_undefined].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13491 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/himsg.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 6f1d0473a..c3eb23ff6 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -524,10 +524,9 @@ let explain_no_instance env (_,id) l = prlist_with_sep pr_spc (pr_lconstr_env env) l let undefined_evars evm = - Evd.fold (fun ev evi undef -> - if evi.evar_body = Evar_empty then + Evd.fold_undefined (fun ev evi undef -> Evd.add undef ev (Evarutil.nf_evar_info evm evi) - else undef) evm Evd.empty + ) evm Evd.empty let pr_constraints printenv env evm = let evm = undefined_evars evm in |