From 3fc6c42bba20723b61ecfd3e48e3a87bac213004 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 3 Aug 2012 14:48:33 +0000
Subject: Fixing include printers

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

(limited to 'dev')

diff --git a/dev/include b/dev/include
index 69ac3c4145..18b75a4e04 100644
--- a/dev/include
+++ b/dev/include
@@ -36,7 +36,7 @@
 #install_printer  (* type_judgement *) pptype;;
 #install_printer  (* judgement *) ppj;;
 
-#install_printer  (* hint_db *)  print_hint_db;;
+#install_printer  (* hint_db *)  pphintdb;;
 (*#install_printer  (* hints_path *)  pphintspath;;*)
 #install_printer  (* goal *)  ppgoal;;
 (*#install_printer  (* sigma goal *)  ppsigmagoal;;*)
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index d0b358d8ea..0af5ad8662 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -111,6 +111,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 pphintdb db = pp (Auto.pr_hint_db db)
 
 (* proof printers *)
 let ppmetas metas = pp(pr_metaset metas)
-- 
cgit v1.2.3