Use utility sleep instead of repeating it in one of the examples

This commit is contained in:
Tony Garnock-Jones 2016-11-22 09:16:23 +13:00
parent 4d6a2986d5
commit 6497cc5185
1 changed files with 1 additions and 6 deletions

View File

@ -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)