diff options
Diffstat (limited to 'lib/pp_control.ml')
-rw-r--r-- | lib/pp_control.ml | 4 |
1 files changed, 2 insertions, 2 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 () |