diff options
author | 2014-02-03 10:27:19 +0100 | |
---|---|---|
committer | 2014-02-24 13:35:05 +0100 | |
commit | dd69cd22f442e52a9d8c990270afb408cc9d6c22 (patch) | |
tree | 52035ed8ae7d5f3a33de21a60f3e781f5e5e4938 /dev | |
parent | 97614d75a3ae8e515170d1c58c0cbbdf55346558 (diff) |
app_node, stack, state printers
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 06a62abce..62574a593 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 9f39496de..82155a305 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) |