diff options
Diffstat (limited to 'lib/pp_control.ml')
-rw-r--r-- | lib/pp_control.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 2e8476790..78b78020d 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -95,6 +95,8 @@ let deep_ft = with_output_to stdout let _ = set_gp deep_ft deep_gp (* For parametrization through vernacular *) -let set_depth_boxes v = Format.pp_set_max_boxes std_ft v -let get_depth_boxes () = Format.pp_get_max_boxes std_ft () +let default = Format.pp_get_max_boxes std_ft () +let get_depth_boxes () = Some (Format.pp_get_max_boxes std_ft ()) +let set_depth_boxes v = + Format.pp_set_max_boxes std_ft (match v with None -> default | Some v -> v) |