Use utility sleep instead of repeating it in one of the examples
This commit is contained in:
parent
4d6a2986d5
commit
6497cc5185
|
@ -1,11 +1,6 @@
|
||||||
#lang syndicate/actor
|
#lang syndicate/actor
|
||||||
|
|
||||||
(require/activate syndicate/drivers/timer)
|
(require/activate syndicate/drivers/timestate)
|
||||||
|
|
||||||
(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)))))
|
|
||||||
|
|
||||||
(define (chain-step n)
|
(define (chain-step n)
|
||||||
(printf "chain-step ~v\n" n)
|
(printf "chain-step ~v\n" n)
|
||||||
|
|
Loading…
Reference in New Issue