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/termops.ml | |
| parent | cd1adfe2d51d05381a1044fb5a0086c608184ca9 (diff) | |
Reordering Termops w.r.t. Evd and Namegen in engine folder.
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 5327f18296..298302815a 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -101,6 +101,7 @@ let term_printer = ref (fun _ -> pr_constr) let print_constr_env t = !term_printer t let print_constr t = !term_printer (Global.env()) t let set_print_constr f = term_printer := f +let () = Hook.set Evd.print_constr_hook (fun env c -> !term_printer env c) let pr_var_decl env decl = let open NamedDecl in |