From 81963adda8dd9120d9e602264a7906ae0c374ebb Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sat, 9 Jul 2022 17:34:40 -0500
Subject: [bugfix] still need bitmap cleanup method.

---
 src/interactive/bitmap.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/interactive')

diff --git a/src/interactive/bitmap.lisp b/src/interactive/bitmap.lisp
index 3d38503..06f081e 100644
--- a/src/interactive/bitmap.lisp
+++ b/src/interactive/bitmap.lisp
@@ -69,6 +69,9 @@ count and destroys shader-program if necessary."
       (gl:bind-buffer :array-buffer 0)
       (gl:bind-vertex-array 0))))
 
+(defmethod cleanup ((bitmap bitmap))
+  (bitmap-finalizer))
+
 (defmethod render ((bitmap bitmap))
   (with-slots (texture) bitmap
     (gl:active-texture 0)
-- 
cgit v1.2.3