summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-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)