kernel: Activate within context of the game loop.

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