From a1a9494515a25d00f4065e7bfa145acec4da8b73 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 18 Oct 2021 14:22:11 -0400 Subject: kernel: Activate within context of the game loop. --- starling/kernel.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/starling/kernel.scm b/starling/kernel.scm index 42107b7..89c4fd4 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -365,9 +365,9 @@ (parameterize ((current-kernel kernel) (current-graphics-engine (make-graphics-engine (gl-context kernel))) (current-window (window kernel))) - (activate kernel) - (push-scene kernel (thunk)) - (run-game* #:init (const #t) + (run-game* #:init (lambda () + (activate kernel) + (push-scene kernel (thunk))) #:update (lambda (dt) (update-tree kernel dt)) #:render (lambda (alpha) (render-tree kernel alpha)) #:error (lambda (stack key args) -- cgit v1.2.3