syndicate-2017/racket/syndicate/examples/actor/chain.rkt

13 lines
248 B
Racket

#lang syndicate
(require/activate syndicate/drivers/timestate)
(define (chain-step n)
(printf "chain-step ~v\n" n)
(spawn* (sleep 1)
(if (< n 5)
(chain-step (+ n 1))
(printf "done.\n"))))
(chain-step 0)