diff options
| author | herbelin | 2010-09-02 08:03:01 +0000 |
|---|---|---|
| committer | herbelin | 2010-09-02 08:03:01 +0000 |
| commit | 2255bfab930f641cc958816173f56bed1ccc1caa (patch) | |
| tree | 6d10e68709de34fa9b344dc5c2790c860b9ac562 /parsing/printer.ml | |
| parent | 15bcd883c3266050ec3a3389c19712ad5df2d6c5 (diff) | |
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
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 2 |
1 files changed, 1 insertions, 1 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) = |