PR#587

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4057 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2001-11-27 15:09:12 +00:00 · 2001-11-27 15:09:12 +00:00 · eaecf6179f
parent b9a6385cf2
commit eaecf6179f
1 changed files with 4 additions and 1 deletions
--- a/tools/ocamlprof.ml
+++ b/tools/ocamlprof.ml
@ -153,7 +153,10 @@ let final_rewrite add_function =
    seek_out !outchan (!pos_len - String.length len);
    output_string !outchan len
  end;
-  close_out !outchan;
+  (* Cannot close because outchan is stdout and Format doesn't like
+     a closed stdout.
+    close_out !outchan;
+  *)
 ;;

 let rec rewrite_patexp_list iflag l =