diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2019-11-19 17:48:36 -0500 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2019-11-19 17:48:36 -0500 |
commit | 31ff86a6e5be86b7ddede4e45bacc3a6c80f1b2e (patch) | |
tree | eac978002b12b7a909a8d2cddc1139ff4240e35f | |
parent | 1d13e20724aebddbab888d7c893dcfa954075a3a (diff) |
kernel: Update to latest chickadee API.
-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)) |