summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/kernel.scm6
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)