summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-11-30 13:15:16 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-11-30 13:15:16 -0500
commit842d07371db26e52a73e635b6c04e680ea044c5d (patch)
treea05552d85e4afb7bdb3ee79a4560e795bb4c0d82
parentde0c79c143ddcc3fcad5f40a861d35a898ae812b (diff)
render: texture: Remove unneeded protection from texture guardian.
* sly/render/texture (texture-guardian): Remove 'false-if-exception'.
-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."