Biocaml 0.4-dev : Biocaml_internal_utils.Debug.make

let make prefix fmt =

  ksprintf (fun s ->

   if is_enabled prefix then (

    eprintf "%s: " prefix;

    String.iter s (function

    | '\n' -> eprintf "\n  "

    | c -> eprintf "%c" c);

    eprintf "\n%!"

   )

  ) fmt