summaryrefslogtreecommitdiff
path: root/examples/coroutine.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/coroutine.scm')
-rw-r--r--examples/coroutine.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/examples/coroutine.scm b/examples/coroutine.scm
index 6e743d1..0c6f3b4 100644
--- a/examples/coroutine.scm
+++ b/examples/coroutine.scm
@@ -9,6 +9,7 @@
(2d vector)
(2d input)
(2d helpers)
+ (2d agenda)
(2d coroutine))
(define window-width 800)
@@ -37,10 +38,11 @@
;; Simple script that moves the sprite to a random location every
;; second.
-(coroutine
- (while #t
- (set-sprite-position! sprite (vector (random window-width)
- (random window-height)))
- (wait 60)))
+(agenda-schedule
+ (colambda ()
+ (while #t
+ (set-sprite-position! sprite (vector (random window-width)
+ (random window-height)))
+ (wait 60))))
(run-game-loop)