.

original commit: 8e6f98b6de8bc623b05e28d59df77aa556e6dd65
2004-01-11 16:35:47 +00:00 · 2004-01-11 16:35:47 +00:00 · bc22dd5f45
commit bc22dd5f45
parent 04426ca163
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/cml.ss
+++ b/collects/mzlib/cml.ss
@ -43,7 +43,8 @@
       (let ([s (make-semaphore)])
 	 (thread-resume (thread/suspend-to-kill
 			 (lambda ()
-			   (sleep (max 0 (- t (current-seconds))))
+			   (object-wait-multiple (max 0 (- t (current-seconds)))
+						 nack)
 			   (semaphore-post s)))
 			(current-thread))
 	 (make-wrapped-waitable s void)))))