\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-module F = Format
-module O = MetaOutput
+module F = Format
+module MO = MetaOutput
type out_channel = Pervasives.out_channel * F.formatter
f (och, frm)
let write_entity f (_, frm) entity =
- O.pp_entity f frm entity
+ MO.pp_entity f frm entity
let close_out f (och, _) =
close_out och; f ()