fix file-descriptor leak in process[*]/ports (PR 10229)

svn: r14710

original commit: 83cd3964f4e27c38790762dc44c00b0bf57f6fb2

collects/mzlib/process.ss

@@ -71,7 +71,11 @@
 
   (define (streamify-out cout out get-thread?)
     (if (and cout (not (file-stream-port? cout)))
-	(let ([t (thread (lambda () (copy-port out cout)))])
+	(let ([t (thread (lambda () 
+                           (dynamic-wind
+                               void
+                               (lambda () (copy-port out cout))
+                               (lambda () (close-input-port out)))))])
 	  (and get-thread? t))
 	out))