suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refine `sleep/yield'

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-15 15:44:57 -07:00
parent 841e0b2473
commit ab86ffa778
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/misc.rkt
View File

@ -41,8 +41,14 @@
(define (sleep/yield secs)
(unless (and (real? secs) (not (negative? secs)))
(raise-type-error 'sleep/yield "non-negative real number" secs))
(wx:yield (alarm-evt (+ (current-inexact-milliseconds)
(* secs 1000))))
(let ([evt (alarm-evt (+ (current-inexact-milliseconds)
(* secs 1000)))])
;; First, allow at least some events to be handled even if
;; the alarm is immediately ready. This makes `sleep/yield'
;; more like `sleep':
(wx:yield)
;; Now, realy sleep:
(wx:yield evt))
(void))
(define file-creator-and-type