diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp.ml4 | 4 | ||||
| -rw-r--r-- | lib/pp.mli | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lib/pp.ml4 b/lib/pp.ml4 index 0ec4ea4c91..f64f932e24 100644 --- a/lib/pp.ml4 +++ b/lib/pp.ml4 @@ -322,7 +322,9 @@ let pperrnl x = ppnl_with !err_ft x let message s = ppnl (str s) let warning x = warning_with !err_ft x let pp_flush x = Format.pp_print_flush !std_ft x -let flush_all() = flush stderr; flush stdout; pp_flush() +let pperr_flush x = Format.pp_print_flush !err_ft x +let flush_all () = + flush stderr; flush stdout; pp_flush (); pperr_flush () (* pretty printing functions WITH FLUSH *) let msg x = msg_with !std_ft x diff --git a/lib/pp.mli b/lib/pp.mli index 58a5171d31..6dcbc0411c 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -149,6 +149,7 @@ val pp : std_ppcmds -> unit val ppnl : std_ppcmds -> unit val pperr : std_ppcmds -> unit val pperrnl : std_ppcmds -> unit +val pperr_flush : unit -> unit val pp_flush : unit -> unit val flush_all: unit -> unit |