From b70a404c640785010ecad52af29b4a96184b2c7e Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 15 Jul 2022 16:35:06 -0500
Subject: [add] working canvas demo!

---
 src/interactive/bitmap.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interactive/bitmap.lisp')

diff --git a/src/interactive/bitmap.lisp b/src/interactive/bitmap.lisp
index 06f081e..96d8e07 100644
--- a/src/interactive/bitmap.lisp
+++ b/src/interactive/bitmap.lisp
@@ -13,7 +13,7 @@
   "executed after a bitmap has been reclaimed by gc. decrements bitmap
 count and destroys shader-program if necessary."
   (decf *bitmap-count*)
-  (when (zerop *bitmap-count*)
+  (unless (plusp *bitmap-count*)
     (when *bitmap-vao*
       (gl:delete-vertex-arrays (list *bitmap-vao*))
       (setf *bitmap-vao* nil))
-- 
cgit v1.2.3