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 (timer-subscriptions s)
(define t (next-timer (driver-state-heap s))) (define t (next-timer (driver-state-heap s)))
(append (list (sub (set-timer ? ? 'relative)) (gestalt-union (sub (set-timer ? ? 'relative))
(sub (set-timer ? ? 'absolute)) (sub (set-timer ? ? 'absolute))
(pub (timer-expired ? ?))) (pub (timer-expired ? ?))
(if t (if t
(list (sub (event (timer-evt (pending-timer-deadline t)) ?) #:meta-level 1)) (sub (event (timer-evt (pending-timer-deadline t)) ?) #:meta-level 1)
'()))) (gestalt-empty))))
(define (spawn-timer-driver) (define (spawn-timer-driver)
(define s (driver-state (make-timer-heap))) (define s (driver-state (make-timer-heap)))