diff options
| -rw-r--r-- | 2d/stage.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/2d/stage.scm b/2d/stage.scm index bf966ab..29a9445 100644 --- a/2d/stage.scm +++ b/2d/stage.scm @@ -31,6 +31,7 @@ stage-observer stage-env stage-scene + set-stage-scene! enter-stage exit-stage draw-stage @@ -49,7 +50,7 @@ (%make-stage agenda scene state) stage? (agenda stage-agenda) - (scene stage-scene) + (scene stage-scene set-stage-scene!) (state stage-state)) (define (make-stage scene) |