diff options
| author | Pierre-Marie Pédrot | 2016-11-24 18:18:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:30:38 +0100 |
| commit | 05afd04095e35d77ca135bd2c1cb8d303ea2d6a8 (patch) | |
| tree | ae729d05933776d718905029f0a87722716ec57f /engine/evd.ml | |
| parent | 531590c223af42c07a93142ab0cea470a98964e6 (diff) | |
Ltac now uses evar-based constrs.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index d8a658e3e3..9c05c6c028 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -1265,7 +1265,7 @@ let protect f x = let (f_print_constr, print_constr_hook) = Hook.make () -let print_constr a = protect (fun c -> Hook.get f_print_constr (Global.env ()) c) a +let print_constr a = protect (fun c -> Hook.get f_print_constr (Global.env ()) empty c) a let pr_meta_map mmap = let pr_name = function @@ -1423,11 +1423,11 @@ let pr_evar_constraints pbs = Namegen.make_all_name_different env in print_env_short env ++ spc () ++ str "|-" ++ spc () ++ - Hook.get f_print_constr env t1 ++ spc () ++ + Hook.get f_print_constr env empty t1 ++ spc () ++ str (match pbty with | Reduction.CONV -> "==" | Reduction.CUMUL -> "<=") ++ - spc () ++ Hook.get f_print_constr env t2 + spc () ++ Hook.get f_print_constr env empty t2 in prlist_with_sep fnl pr_evconstr pbs |