From 6497cc5185d386ca9c6aa22e33809cdf36fe70c2 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 22 Nov 2016 09:16:23 +1300 Subject: [PATCH] Use utility sleep instead of repeating it in one of the examples --- racket/syndicate/examples/actor/chain.rkt | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/racket/syndicate/examples/actor/chain.rkt b/racket/syndicate/examples/actor/chain.rkt index a7cb4ce..8cbb69f 100644 --- a/racket/syndicate/examples/actor/chain.rkt +++ b/racket/syndicate/examples/actor/chain.rkt @@ -1,11 +1,6 @@ #lang syndicate/actor -(require/activate syndicate/drivers/timer) - -(define (sleep sec) - (define timer-id (gensym 'sleep)) - (until (message (timer-expired timer-id _)) - (on-start (send! (set-timer timer-id (* sec 1000.0) 'relative))))) +(require/activate syndicate/drivers/timestate) (define (chain-step n) (printf "chain-step ~v\n" n)