summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-10-23 23:05:42 -0400
committerDavid Thompson <dthompson2@worcester.edu>2013-10-23 23:05:42 -0400
commitc7ea1a30707665d0ca99de570bf8db57455672ef (patch)
tree4e651170a47d480470f4f292f9c1bf0ecea8fc21
parentf8e3151e456c5b48604a0fa56197b2b599bba77a (diff)
Use stage agenda.
-rw-r--r--2d/stage.scm16
1 files changed, 11 insertions, 5 deletions
diff --git a/2d/stage.scm b/2d/stage.scm
index 8dc7386..3126115 100644
--- a/2d/stage.scm
+++ b/2d/stage.scm
@@ -61,23 +61,29 @@
(define (init-stage stage)
"Call the scene init callback for STAGE."
- ((scene-init (stage-scene stage))))
+ (with-agenda (stage-agenda stage)
+ ((scene-init (stage-scene stage)))))
(define (enter-stage stage)
"Call the scene enter callback for STAGE."
- ((scene-enter (stage-scene stage))))
+ (with-agenda (stage-agenda stage)
+ ((scene-enter (stage-scene stage)))))
(define (exit-stage stage)
"Call the scene exit callback for STAGE."
- ((scene-exit (stage-scene stage))))
+ (with-agenda (stage-agenda stage)
+ ((scene-exit (stage-scene stage)))))
(define (update-stage stage)
"Call the scene update callback for STAGE."
- ((scene-update (stage-scene stage))))
+ (with-agenda (stage-agenda stage)
+ (update-agenda)
+ ((scene-update (stage-scene stage)))))
(define (draw-stage stage)
"Call the scene draw callback for STAGE."
- ((scene-draw (stage-scene stage))))
+ (with-agenda (stage-agenda stage)
+ ((scene-draw (stage-scene stage)))))
(define (stage-trigger stage event . args)
#f)