summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/render/texture.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/sly/render/texture.scm b/sly/render/texture.scm
index e1a8ac5..a462ae4 100644
--- a/sly/render/texture.scm
+++ b/sly/render/texture.scm
@@ -105,10 +105,7 @@ that will be rendered, in pixels."
(lambda (texture)
;; Do not reap texture regions
(unless (texture-region? texture)
- ;; When attempting to reap structures upon guile exit, the
- ;; dynamic pointer to gl-delete-textures becomes invalid. So, we
- ;; ignore the error and move on.
- (false-if-exception (gl-delete-texture (texture-id texture))))))
+ (gl-delete-texture (texture-id texture)))))
(define (bitmap->texture bitmap min-filter mag-filter)
"Translates a freeimage bitmap into an OpenGL texture."