2016-07-10 16:33:16 +00:00
|
|
|
#lang syndicate/actor
|
2016-02-05 23:03:40 +00:00
|
|
|
|
2016-11-21 20:16:23 +00:00
|
|
|
(require/activate syndicate/drivers/timestate)
|
2016-02-05 23:03:40 +00:00
|
|
|
|
|
|
|
(define (chain-step n)
|
|
|
|
(printf "chain-step ~v\n" n)
|
2017-02-15 23:18:19 +00:00
|
|
|
(spawn* (sleep 1)
|
2016-08-24 16:35:38 +00:00
|
|
|
(if (< n 5)
|
|
|
|
(chain-step (+ n 1))
|
|
|
|
(printf "done.\n"))))
|
2016-02-05 23:03:40 +00:00
|
|
|
|
|
|
|
(chain-step 0)
|