From 31ff86a6e5be86b7ddede4e45bacc3a6c80f1b2e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 19 Nov 2019 17:48:36 -0500
Subject: kernel: Update to latest chickadee API.

---
 starling/kernel.scm | 5 +++--
 1 file 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))
-- 
cgit v1.2.3