Add new coroutine macro.

* 2d/coroutine.scm (call-with-coroutine): New name for coroutine.
  (coroutine): New macro.
  (colambda, codefine, codefine*): Use call-with-coroutine.
* examples/coroutine.scm: Use coroutine macro.
* README.org: Update coroutine and agenda examples.

1 files changed, 9 insertions, 11 deletions

diff --git a/examples/coroutine.scm b/examples/coroutine.scm
index a479a66..45e8b39 100644
--- a/examples/coroutine.scm
+++ b/examples/coroutine.scm
@@ -15,17 +15,15 @@
 
 ;; Simple script that moves the sprite to a random location every
 ;; second.
-(codefine (script)
-  (set-sprite-position!
-   sprite
-   (vector2 (random window-width)
-            (random window-height)))
-  (wait game-agenda 15)
-  (set-sprite-rotation! sprite (random 360))
-  (wait game-agenda 15)
-  (script))
-
-(schedule game-agenda script)
+(coroutine
+ (while #t
+   (set-sprite-position!
+    sprite
+    (vector2 (random window-width)
+             (random window-height)))
+   (wait game-agenda 15)
+   (set-sprite-rotation! sprite (random 360))
+   (wait game-agenda 15)))
 
 (add-hook! draw-hook (lambda (dt alpha) (draw-sprite sprite)))