skip clean-up of bitmap that isn't there

Backing-bitmap allocation might fail for a too-large window?
2015-10-29 07:42:05 -04:00 · 2015-10-29 07:42:05 -04:00 · 746956a6ae
commit 746956a6ae
parent 35a288da6a
1 changed files with 3 additions and 2 deletions
--- a/gui-lib/mred/private/wx/common/backing-dc.rkt
+++ b/gui-lib/mred/private/wx/common/backing-dc.rkt
@ -96,8 +96,9 @@
            (set! retained-cr #f)
            (internal-set-bitmap #f #t)
            (super release-cr retained-cr)
-            (proc bm)
-            (release-backing-bitmap bm)))))
+            (when bm
+              (proc bm)
+              (release-backing-bitmap bm))))))

    (define/public (start-backing-retained)
      (as-entry