.

original commit: 3b324d6141f10d63fc65411e4d4795ffaac63151
2004-07-17 12:25:42 +00:00 · 2004-07-17 12:25:42 +00:00 · 07457e87fd
commit 07457e87fd
parent 1c7947850d
1 changed files with 3 additions and 3 deletions
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@ -7362,9 +7362,9 @@
 (define (sleep/yield secs)
  (unless (and (real? secs) (not (negative? secs)))
    (raise-type-error 'sleep/yield "non-negative real number" secs))
-  (let ([s (make-semaphore)])
-    (thread (lambda () (sleep secs) (semaphore-post s)))
-    (wx:yield s)))
+  (wx:yield (alarm-evt (+ (current-inexact-milliseconds)
+			  (* secs 1000))))
+  (void))

 (define get-window-text-extent
  (let ([bm #f][dc #f])