Avoid use of wrap-evt, preferring handle-evt
This commit is contained in:
parent
50420a20dc
commit
e0aae6e3e0
|
@ -26,8 +26,8 @@
|
||||||
;; 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)
|
||||||
(make-heap (lambda (t1 t2) (<= (pending-timer-deadline t1) (pending-timer-deadline t2)))))
|
(make-heap (lambda (t1 t2) (<= (pending-timer-deadline t1) (pending-timer-deadline t2)))))
|
||||||
|
|
Loading…
Reference in New Issue