From 96331e0cfde9561f40588b54a85c373f3a5a17f5 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 15 Sep 2017 21:46:39 +0100 Subject: [PATCH] More flip-flop tweaks --- racket/syndicate/examples/actor/flip-flop.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/racket/syndicate/examples/actor/flip-flop.rkt b/racket/syndicate/examples/actor/flip-flop.rkt index ce59fdb..794a7e7 100644 --- a/racket/syndicate/examples/actor/flip-flop.rkt +++ b/racket/syndicate/examples/actor/flip-flop.rkt @@ -20,9 +20,11 @@ (active-state)))) (inactive-state)) -(spawn (on (asserted (active)) (send! (stdout-message "Flip-flop is active"))) - (on (retracted (active)) (send! (stdout-message "Flip-flop is inactive"))) +(spawn #:name 'monitor-flip-flop + (on (asserted (active)) (send! (stdout-message "Flip-flop is active"))) + (on (retracted (active)) (send! (stdout-message "Flip-flop is inactive")))) +(spawn #:name 'periodic-toggle (field [next-toggle-time (current-inexact-milliseconds)]) (on (asserted (later-than (next-toggle-time))) (send! (toggle))