From 8a6e3f648fa3171e3583e7c93c8967ac853a0d60 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 20 May 2009 14:07:14 +0000
Subject: - Fixing declarative mode in presence of high use of Change_evars
 nodes   (bug 2092 and decl_mode.v in test suite). - Added a debugging printer
 for pftreestate. - Fixing American spelling in RefMan-decl.tex. - Optimizing
 application of tactic validation by removing consistency   test in descend. -
 Fixing printing ambiguity for Hint Rewrite ->/<- in extratactics.ml4.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12134 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/include         | 1 +
 dev/top_printers.ml | 1 +
 2 files changed, 2 insertions(+)

(limited to 'dev')

diff --git a/dev/include b/dev/include
index 364773753d..6ed62e1e93 100644
--- a/dev/include
+++ b/dev/include
@@ -26,6 +26,7 @@
 #install_printer  (* goal *)  ppgoal;;
 #install_printer  (* sigma goal *)  ppsigmagoal;;
 #install_printer  (* proof *)  pproof;;
+#install_printer  (* pftreestate *)  pppftreestate;;
 #install_printer  (* metaset.t *) ppmetas;;
 #install_printer  (* evar_map *)  ppevm;;
 #install_printer  (* evar_defs *)  ppevd;;
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 4881c3eefa..f60fb222d6 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -103,6 +103,7 @@ let ppevm evd = pp(pr_evar_defs evd)
 let ppevd evd = pp(pr_evar_defs evd)
 let ppclenv clenv = pp(pr_clenv clenv)
 let ppgoal g = pp(db_pr_goal g)
+let pppftreestate p = pp(print_pftreestate p)
 
 let pr_gls gls =
   hov 0 (pr_evar_defs (sig_sig gls) ++ fnl () ++ db_pr_goal (sig_it gls))
-- 
cgit v1.2.3