diff options
Diffstat (limited to '2d/stage.scm')
| -rw-r--r-- | 2d/stage.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/2d/stage.scm b/2d/stage.scm index fee18a3..bf966ab 100644 --- a/2d/stage.scm +++ b/2d/stage.scm @@ -87,7 +87,11 @@ (define (stage-trigger stage event . args) (with-agenda (stage-agenda stage) - (apply scene-trigger (stage-scene stage) event args))) + (apply scene-trigger + (stage-scene stage) + (stage-state stage) + event + args))) ;;; ;;; Stage management @@ -116,7 +120,7 @@ present." (exit-stage prev-stage)) (set! stack (cdr stack)) (when (current-stage) - (enter-stage (car stack))))) + (enter-stage (current-stage))))) (define (replace-scene scene) "Replace the current stage with STAGE." |