diff options
| author | Pierre-Marie Pédrot | 2016-10-30 16:03:13 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-10-30 19:34:34 +0100 |
| commit | 4ec4c906fdca8907a839f813927280dc127c7f05 (patch) | |
| tree | 1b8a1024138e359bec663875be8985c50509c4fa /engine/evd.ml | |
| parent | cd1adfe2d51d05381a1044fb5a0086c608184ca9 (diff) | |
Reordering Termops w.r.t. Evd and Namegen in engine folder.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index bde0182cc5..d8a658e3e3 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -13,7 +13,6 @@ open Names open Nameops open Term open Vars -open Termops open Environ open Globnames open Context.Named.Declaration @@ -1264,7 +1263,9 @@ let protect f x = try f x with e -> str "EXCEPTION: " ++ str (Printexc.to_string e) -let print_constr a = protect print_constr a +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 pr_meta_map mmap = let pr_name = function @@ -1422,11 +1423,11 @@ let pr_evar_constraints pbs = Namegen.make_all_name_different env in print_env_short env ++ spc () ++ str "|-" ++ spc () ++ - print_constr_env env t1 ++ spc () ++ + Hook.get f_print_constr env t1 ++ spc () ++ str (match pbty with | Reduction.CONV -> "==" | Reduction.CUMUL -> "<=") ++ - spc () ++ print_constr_env env t2 + spc () ++ Hook.get f_print_constr env t2 in prlist_with_sep fnl pr_evconstr pbs |