kernel: Use thunk to create initial scene after kernel init.

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))