summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/kernel.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm
index da82b8d..9fa9ac8 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -245,7 +245,7 @@
(define-method (fps kernel)
(/ 1000.0 (avg-frame-time kernel)))
-(define-method (boot-kernel (kernel <kernel>) (scene <scene>))
+(define-method (boot-kernel (kernel <kernel>) thunk)
(sdl-init)
;; This will throw an error if any audio subsystem is unavailable,
;; but not every audio subsystem is needed so don't crash the
@@ -277,7 +277,7 @@
(const #t)
(lambda ()
(parameterize ((current-kernel kernel))
- (push-scene scene)
+ (push-scene (thunk))
(activate kernel)
(run-game* #:update (lambda (dt) (update* kernel dt))
#:render (lambda (alpha) (render* kernel alpha))