From 7adf3c594013fa67c1749c9655c1f4bea6b7ea5c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 18 Jan 2017 18:52:26 -0500
Subject: Run GPU finalizers in game loop.

---
 chickadee.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'chickadee.scm')

diff --git a/chickadee.scm b/chickadee.scm
index e3d128a..b9996e1 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -22,6 +22,7 @@
   #:use-module (sdl2 input text)
   #:use-module (chickadee window)
   #:use-module (chickadee render gl)
+  #:use-module (chickadee render gpu)
   #:export (load-hook
             update-hook
             before-draw-hook
@@ -163,7 +164,9 @@
                             (loop (poll-event))))
                         ;; Advance the simulation.
                         (run-hook update-hook update-interval)
-                        (update-loop (- lag update-interval)))
+                        (update-loop (- lag update-interval))
+                        ;; Free any GPU resources that have been GC'd.
+                        (gpu-reap!))
                       (begin
                         ;; Render a frame.
                         (run-hook before-draw-hook)
-- 
cgit v1.2.3