From 1f4830acace403bfb04a73f6ee56d096678dad37 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 24 Aug 2004 03:01:18 +0000 Subject: [PATCH] . original commit: 26d25b870228d46c53932b42f7c20d63c01d9200 --- collects/mzlib/port.ss | 3 +++ 1 file changed, 3 insertions(+) diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss index 565fe1f..25ed40a 100644 --- 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))))))