.

original commit: 26d25b870228d46c53932b42f7c20d63c01d9200
2004-08-24 03:01:18 +00:00 · 2004-08-24 03:01:18 +00:00 · 1f4830acac
commit 1f4830acac
parent e9f49fe4a4
1 changed files with 3 additions and 0 deletions
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@ -431,12 +431,15 @@
 	   (nack-guard-evt
 	    (lambda (nack)
 	      (define ch (make-channel))
+	      (define ready (make-semaphore))
 	      (let ([t (thread (lambda () 
 				 (parameterize-break #t
 				   (with-handlers ([exn:break? void])
+				     (semaphore-post ready)
 				     (go nack ch #f)))))])
 		(thread (lambda ()
 			  (sync nack) 
+			  (semaphore-wait ready)
 			  (break-thread t))))
 	      ch))))))