From fdd9413c9fa0e8b14484e9f5993c4182f6ea57f8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 6 Mar 2003 22:06:45 +0000
Subject: [PATCH] .

original commit: 9e9c9d5d3ee88132331129f6e77ff8338f5407dd
---
 collects/mzlib/process.ss | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.ss
index f3a29f5..68b07e1 100644
--- 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))