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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parsing')

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) =
-- 
cgit v1.2.3