Ticker

2016-10-31 17:42:38 -04:00 · 2016-10-31 17:42:38 -04:00 · c77793f7fd
parent 15504cccab
commit c77793f7fd
1 changed files with 8 additions and 0 deletions
--- a/racket/syndicate/examples/actor/timestate.rkt
+++ b/racket/syndicate/examples/actor/timestate.rkt
@ -13,3 +13,11 @@
       (field [deadline (+ (current-inexact-milliseconds) 5000)])
       (stop-when (asserted (later-than (deadline)))
                  (printf "Deadline expired\n")))
+
+(actor #:name 'demo-updating-later-than
+       (field [deadline (current-inexact-milliseconds)])
+       (field [counter 0])
+       (on #:when (< (counter) 10) (asserted (later-than (deadline)))
+           (printf "Tick ~v\n" (counter))
+           (counter (+ (counter) 1))
+           (deadline (+ (deadline) 1000))))