summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2019-11-19 17:48:36 -0500
committerDavid Thompson <dthompson@vistahigherlearning.com>2019-11-19 17:48:36 -0500
commit31ff86a6e5be86b7ddede4e45bacc3a6c80f1b2e (patch)
treeeac978002b12b7a909a8d2cddc1139ff4240e35f
parent1d13e20724aebddbab888d7c893dcfa954075a3a (diff)
kernel: Update to latest chickadee API.
-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))