This commit is contained in:
Tony Garnock-Jones 2018-08-13 21:45:44 +01:00
parent f5efa77d91
commit 979d057f3f
1 changed files with 3 additions and 0 deletions

View File

@ -82,6 +82,9 @@
(current-inexact-milliseconds))
(define timer-id (gensym 'timestate))
(on-start (send! (set-timer timer-id msecs 'absolute)))
;; TODO: on-stop to delete irrelevant timers, so that their background-activity is
;; removed, so that programs don't stay running uselessly while previously-set but
;; now-unwanted timers expire unobserved.
(on (message (timer-expired timer-id _))
(react (assert (later-than msecs))))))