Source file `format_compat.ml`

1
2
3
4
5
6
7
8
9
10
#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"
  }