From ae3a6c63018d5743c16ab388d3e1f9bfde0eb43d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 10 May 2008 16:35:46 +0000
Subject: Correction bug #1842 + correction bug initialisation introduit dans
 commit 10916

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10917 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/pp_control.ml  | 4 ++--
 lib/pp_control.mli | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/pp_control.ml b/lib/pp_control.ml
index e439161251..67ae4a20a3 100644
--- a/lib/pp_control.ml
+++ b/lib/pp_control.ml
@@ -92,8 +92,8 @@ let _ = set_dflt_gp !std_ft
 let err_ft = ref Format.err_formatter
 let _ = set_gp !err_ft deep_gp
 
-let deep_ft = with_output_to stdout
-let _ = set_gp deep_ft deep_gp
+let deep_ft = ref (with_output_to stdout)
+let _ = set_gp !deep_ft deep_gp
 
 (* For parametrization through vernacular *)
 let default = Format.pp_get_max_boxes !std_ft ()
diff --git a/lib/pp_control.mli b/lib/pp_control.mli
index 3c008aaca1..b43584f344 100644
--- a/lib/pp_control.mli
+++ b/lib/pp_control.mli
@@ -38,7 +38,7 @@ val with_output_to : out_channel -> Format.formatter
 
 val std_ft : Format.formatter ref
 val err_ft : Format.formatter ref
-val deep_ft : Format.formatter
+val deep_ft : Format.formatter ref
 
 (*s For parametrization through vernacular. *)
 
-- 
cgit v1.2.3