Run GPU finalizers in game loop.

1 files changed, 4 insertions, 1 deletions

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)