diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 1 | ||||
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/dev/base_include b/dev/base_include index 06a62abced..62574a5937 100644 --- a/dev/base_include +++ b/dev/base_include @@ -42,6 +42,7 @@ #install_printer (* Cpred.t *) pp_cpred;; #install_printer ppzipper;; #install_printer ppstack;; +#install_printer (* Reductionops.Stack.t *) pp_stack_t;; #install_printer ppatom;; #install_printer ppwhd;; #install_printer ppvblock;; @@ -28,6 +28,7 @@ install_printer Top_printers.ppconstraints install_printer Top_printers.pptype install_printer Top_printers.ppj install_printer Top_printers.ppenv +install_printer Top_printers.pp_stack_t install_printer Top_printers.ppmetas install_printer Top_printers.ppevm diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 9f39496dea..82155a3058 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -116,6 +116,7 @@ let prdelta s = pp (Mod_subst.debug_pr_delta s) let pp_idpred s = pp (pr_idpred s) let pp_cpred s = pp (pr_cpred s) let pp_transparent_state s = pp (pr_transparent_state s) +let pp_stack_t n = pp (Reductionops.Stack.pr Termops.print_constr n) (* proof printers *) let pr_evar ev = Pp.int (Evar.repr ev) |