Avoid use of wrap-evt, preferring handle-evt
This commit is contained in:
parent
50420a20dc
commit
e0aae6e3e0
|
@ -26,7 +26,7 @@
|
|||
;; after the asked-for time. That way it serves as timeout and
|
||||
;; clock-reader in one.
|
||||
(define (timer-evt msecs)
|
||||
(wrap-evt (alarm-evt msecs)
|
||||
(handle-evt (alarm-evt msecs)
|
||||
(lambda (_) (current-inexact-milliseconds))))
|
||||
|
||||
(define (make-timer-heap)
|
||||
|
|
Loading…
Reference in New Issue