diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-11-30 13:15:16 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-11-30 13:15:16 -0500 |
| commit | 842d07371db26e52a73e635b6c04e680ea044c5d (patch) | |
| tree | a05552d85e4afb7bdb3ee79a4560e795bb4c0d82 /sly/render | |
| parent | de0c79c143ddcc3fcad5f40a861d35a898ae812b (diff) | |
render: texture: Remove unneeded protection from texture guardian.
* sly/render/texture (texture-guardian): Remove 'false-if-exception'.
Diffstat (limited to 'sly/render')
| -rw-r--r-- | sly/render/texture.scm | 5 |
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." |