diff options
Diffstat (limited to 'lisparuga/kernel.scm')
-rw-r--r-- | lisparuga/kernel.scm | 6 |
1 files changed, 1 insertions, 5 deletions
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. |