[r2006-06-06 06:41:13 by afrisch] Empty log message

Original author: afrisch
Date: 2006-06-06 06:41:13+00:00

runtime/system.ml

@@ -34,7 +34,10 @@ end
 
 let run_process cmd =
   let (sout,sin,serr) as h = Unix.open_process_full cmd (Unix.environment()) in
-  close_out sin;
+  Unix.close (Unix.descr_of_out_channel sin);
+  (* used to be: (close_out sin), but OCaml 3.09.2 seems to segfault
+     on double closing channels. *)
+
   let sout = Reader.ic sout in
   let serr = Reader.ic serr in
   sout,serr, Unix.close_process_full h