From dd69cd22f442e52a9d8c990270afb408cc9d6c22 Mon Sep 17 00:00:00 2001
From: Pierre Boutillier
Date: Mon, 3 Feb 2014 10:27:19 +0100
Subject: app_node, stack, state printers

---
 dev/base_include    | 1 +
 dev/db              | 1 +
 dev/top_printers.ml | 1 +
 3 files changed, 3 insertions(+)

(limited to 'dev')

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;;
diff --git a/dev/db b/dev/db
index 7d738cd10a..ca37bd0a3e 100644
--- a/dev/db
+++ b/dev/db
@@ -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)
-- 
cgit v1.2.3