Another timestate example

This commit is contained in:
Tony Garnock-Jones 2017-09-28 17:41:17 +01:00
parent 4a51141500
commit 7a4d528dc0
1 changed files with 5 additions and 0 deletions

View File

@ -21,3 +21,8 @@
(printf "Tick ~v\n" (counter))
(counter (+ (counter) 1))
(deadline (+ (deadline) 1000))))
(spawn* #:name 'demo-sleep
(for [(counter (in-range 10))]
(printf "Sleeping tick ~v\n" counter)
(sleep 1.0)))