summaryrefslogtreecommitdiff
path: root/starling/kernel.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/kernel.scm')
-rw-r--r--starling/kernel.scm5
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))