diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-05-10 16:35:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-05-10 16:35:46 +0000 |
| commit | ae3a6c63018d5743c16ab388d3e1f9bfde0eb43d (patch) | |
| tree | c9d46bdf330f267430e679094c1a0e65051a378c /lib | |
| parent | 7df139ca0834b0b93e6259eaecb05c0b8c5cbe99 (diff) | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp_control.ml | 4 | ||||
| -rw-r--r-- | lib/pp_control.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index e43916125..67ae4a20a 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 3c008aaca..b43584f34 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. *) |