diff options
| -rw-r--r-- | starling/kernel.scm | 6 |
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) |