From 2255bfab930f641cc958816173f56bed1ccc1caa Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 2 Sep 2010 08:03:01 +0000
Subject: Improved printing of Unfoldable constants in hints databases (used
 user-level pr_constant instead of debugging-level pr_con + used ppnl and
 boxes instead of explicit fnl's so as not to disturb formatting).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13390 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 2 +-
 tactics/auto.ml    | 9 ++++-----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 0a3fa85d43..5d6837e133 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -262,7 +262,7 @@ let pr_predicate pr_elt (b, elts) =
     else
       if elts = [] then str"none" else pr_elts
 
-let pr_cpred p = pr_predicate pr_con (Cpred.elements p)
+let pr_cpred p = pr_predicate (pr_constant (Global.env())) (Cpred.elements p)
 let pr_idpred p = pr_predicate Nameops.pr_id (Idpred.elements p)
 
 let pr_transparent_state (ids, csts) =
diff --git a/tactics/auto.ml b/tactics/auto.ml
index 4cac7faae2..328e2d6e32 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -703,12 +703,11 @@ let print_applicable_hint () =
 (* displays the whole hint database db *)
 let print_hint_db db =
   let (ids, csts) = Hint_db.transparent_state db in
-  msg (hov 0
+  msgnl (hov 0
 	  ((if Hint_db.use_dn db then str"Discriminated database"
-	    else str"Non-discriminated database") ++ fnl ()));
-  msg (hov 0
-	  (str"Unfoldable variable definitions: " ++ pr_idpred ids ++ fnl () ++
-	   str"Unfoldable constant definitions: " ++ pr_cpred csts ++ fnl ()));
+	    else str"Non-discriminated database")));
+  msgnl (hov 2 (str"Unfoldable variable definitions: " ++ pr_idpred ids));
+  msgnl (hov 2 (str"Unfoldable constant definitions: " ++ pr_cpred csts));
   Hint_db.iter
     (fun head hintlist ->
       match head with
-- 
cgit v1.2.3