diff options
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. *) |