.

original commit: 9e9c9d5d3ee88132331129f6e77ff8338f5407dd
2003-03-06 22:06:45 +00:00 · 2003-03-06 22:06:45 +00:00 · fdd9413c9f
commit fdd9413c9f
parent 12137cbd9d
1 changed files with 6 additions and 6 deletions
--- a/collects/mzlib/process.ss
+++ b/collects/mzlib/process.ss
@ -54,12 +54,12 @@
  (define (streamify-in cin in get-thread?)
    (if (and cin (not (file-stream-port? cin)))
 	(let ([t (thread (lambda () 
-			   (dynamic-wind
-			    void
-			    (lambda () 
-			      (with-handlers ([exn:break? void])
-				(copy-port cin in)))
-			    (lambda () (close-output-port in)))))])
+			   (with-handlers ([exn:break? void])
+			     (dynamic-wind
+				 void
+				 (lambda () 
+				   (copy-port cin in))
+				 (lambda () (close-output-port in))))))])
 	  (and get-thread? t))
 	in))