diff options
| author | msozeau | 2011-08-03 14:25:56 +0000 |
|---|---|---|
| committer | msozeau | 2011-08-03 14:25:56 +0000 |
| commit | cd411cddcd2f24c892146916e530635dda086d8d (patch) | |
| tree | 3e27f1d740622871ae309b1a547c96620eab6817 | |
| parent | 0962a284f57b18a6f40f68875d386bc479285bc4 (diff) | |
Fix nf_evars_undefined use in pr_constraints
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14383 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/himsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index f3df77379b..ff578270a8 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -697,7 +697,7 @@ let explain_no_instance env (_,id) l = prlist_with_sep pr_spc (pr_lconstr_env env) l let pr_constraints printenv env evm = - let evm = Evarutil.nf_evar_map_undefined evm in + let evm = Evd.undefined_evars (Evarutil.nf_evar_map_undefined evm) in let l = Evd.to_list evm in let (ev, evi) = List.hd l in if List.for_all (fun (ev', evi') -> |