syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Avoid use of wrap-evt, preferring handle-evt

This commit is contained in:
Tony Garnock-Jones 2014-06-11 16:01:04 -04:00
parent 50420a20dc
commit e0aae6e3e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minimart/drivers/timer.rkt
View File

@ -26,8 +26,8 @@
;; 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)
(lambda (_) (current-inexact-milliseconds))))
(handle-evt (alarm-evt msecs)
(lambda (_) (current-inexact-milliseconds))))
(define (make-timer-heap)
(make-heap (lambda (t1 t2) (<= (pending-timer-deadline t1) (pending-timer-deadline t2)))))