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

Update timer driver

This commit is contained in:
Tony Garnock-Jones 2014-05-14 00:03:07 -04:00
parent 869f287e4b
commit 0bff938cf7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
minimart/drivers/timer.rkt
View File

@ -48,12 +48,12 @@
(define (timer-subscriptions s)
(define t (next-timer (driver-state-heap s)))
(append (list (sub (set-timer ? ? 'relative))
(sub (set-timer ? ? 'absolute))
(pub (timer-expired ? ?)))
(if t
(list (sub (event (timer-evt (pending-timer-deadline t)) ?) #:meta-level 1))
'())))
(gestalt-union (sub (set-timer ? ? 'relative))
(sub (set-timer ? ? 'absolute))
(pub (timer-expired ? ?))
(if t
(sub (event (timer-evt (pending-timer-deadline t)) ?) #:meta-level 1)
(gestalt-empty))))
(define (spawn-timer-driver)
(define s (driver-state (make-timer-heap)))