aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/interactive/bitmap.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interactive/bitmap.lisp')
-rw-r--r--src/interactive/bitmap.lisp2
1 files changed, 1 insertions, 1 deletions
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))