From 729f0b687b975e60f338831bcb0d59fad776f3e1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Sun, 12 Apr 2020 09:03:41 -0400
Subject: Day 2 progress.

---
 lisparuga/kernel.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'lisparuga/kernel.scm')

diff --git a/lisparuga/kernel.scm b/lisparuga/kernel.scm
index 36dea70..e8359d4 100644
--- a/lisparuga/kernel.scm
+++ b/lisparuga/kernel.scm
@@ -228,12 +228,8 @@
 
 (define-method (render-tree (kernel <kernel>) alpha)
   (let ((start-time (elapsed-time)))
-    ;; Switch to the null viewport to ensure that
-    ;; the default viewport will be re-applied and
-    ;; clear the screen.
-    (set-gpu-viewport! (current-gpu) null-viewport)
     (with-viewport (default-viewport kernel)
-      (gl-clear %clear-mask)
+      (clear-screen)
       (next-method))
     (sdl2:swap-gl-window (window kernel))
     ;; Compute FPS.
-- 
cgit v1.2.3