.

original commit: 0ed2ce841d18ed2f54bb6481d818cb91a36e5ddd
2001-05-16 12:25:33 +00:00 · 2001-05-16 12:25:33 +00:00 · 88792b68a8
commit 88792b68a8
parent 303d5b9892
1 changed files with 3 additions and 1 deletions
--- a/collects/mzlib/process.ss
+++ b/collects/mzlib/process.ss
@ -115,7 +115,9 @@
 		  [it (streamify-in cin in #t)]
 		  [et (streamify-out cerr err #t)])
 	      (subprocess-wait subp)
-	      (break-thread it) ; stop piping output to subprocess
+	      (when it
+		;; stop piping output to subprocess
+		(break-thread it))
 	      ;; wait for other pipes to run dry:
 	      (when (thread? ot)
 		(thread-wait ot))