From c77793f7fdeb4614b3b5874082a1510ca564418c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 31 Oct 2016 17:42:38 -0400 Subject: [PATCH] Ticker --- racket/syndicate/examples/actor/timestate.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/racket/syndicate/examples/actor/timestate.rkt b/racket/syndicate/examples/actor/timestate.rkt index 07f6f04..fae1ea7 100644 --- 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))))