let ocamlbuild_output () =
match !ocamlbuild_output with
None ->
let o = new Ed_outputs.text_output
~on_destroy: (fun () -> ocamlbuild_output := None)
output_name
in
ocamlbuild_output := Some o ;
o
| Some o -> o