Source file format_compat.ml

#0 "format_compat.mlp"
let transform fmt f =
  { fmt with
    Format.out_newline = (fun () -> ());
    out_spaces = (fun _ -> ());
    out_indent = ignore;
#5 "format_compat.mlp"
  out_string = f
#7 "format_compat.mlp"
  }