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
|
;; after the asked-for time. That way it serves as timeout and
|
||||||
;; clock-reader in one.
|
;; clock-reader in one.
|
||||||
(define (timer-evt msecs)
|
(define (timer-evt msecs)
|
||||||
(wrap-evt (alarm-evt msecs)
|
(handle-evt (alarm-evt msecs)
|
||||||
(lambda (_) (current-inexact-milliseconds))))
|
(lambda (_) (current-inexact-milliseconds))))
|
||||||
|
|
||||||
(define (make-timer-heap)
|
(define (make-timer-heap)
|
||||||
|
|
Loading…
Reference in New Issue