From 38d4745df23fa81448e8b3bdcb3416ecab6b4891 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 7 May 2019 16:37:59 -0400 Subject: kernel: Use thunk to create initial scene after kernel init. --- starling/kernel.scm | 4 ++-- 1 file 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 ) (scene )) +(define-method (boot-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)) -- cgit v1.2.3