Fix texture leak in scene updates

2015-10-27 12:22:51 -04:00 · 2015-10-27 12:22:51 -04:00 · 543a1753ca
parent f90ff642f1
commit 543a1753ca
1 changed files with 2 additions and 0 deletions
--- a/prospect-gl/2d.rkt
+++ b/prospect-gl/2d.rkt
@ -285,6 +285,8 @@
    (define (process-scene-updates! p)
      (define-values (added removed) (patch-project/set/single p scene-projection))
      (when (not (set-empty? removed))
+        (compiled-instructions-dispose! prelude)
+        (compiled-instructions-dispose! postlude)
        (set! prelude empty-instructions)
        (set! postlude empty-instructions))
      (for [(s added)]