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
---
 tactics/auto.ml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'tactics')

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