ifprintf !logger_output fmt
let print ppf fmt =
- kfprintf (fun _ ->
- fprintf ppf "@?")
- ppf fmt
+ fprintf ppf fmt
let _verbose = ref false
let set_verbose b = _verbose := b
let verbose ppf fmt =
- if !_verbose then begin
- kfprintf (fun _ ->
- fprintf ppf "@?")
- ppf fmt
- end else
- ikfprintf (fun _ ->
- fprintf ppf "@?")
- ppf fmt
+ if !_verbose
+ then fprintf ppf fmt
+ else ifprintf ppf fmt