diff options
| -rw-r--r-- | starling/kernel.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm index 6e07edc..4897eba 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -214,7 +214,7 @@ ;; Switch to the null viewport to ensure that ;; the default viewport will be re-applied and ;; clear the screen. - (gpu-state-set! *viewport-state* null-viewport) + (set-gpu-viewport! (current-gpu) null-viewport) (with-viewport (default-viewport kernel) (next-method)) (swap-gl-window (window kernel)) @@ -271,7 +271,8 @@ (dynamic-wind (const #t) (lambda () - (parameterize ((current-kernel kernel)) + (parameterize ((current-kernel kernel) + (current-gpu (make-gpu (gl-context kernel)))) (activate kernel) (push-scene kernel (thunk)) (run-game* #:update (lambda (dt) (update-tree kernel dt)) |