From 286312cf28f2b09a2e3364efaf5061e97ecdc422 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 2 Aug 2010 13:01:27 -0500 Subject: [PATCH] fixed a bug reported by Todd on the mailing list (probably this is his bug anyways) (cherry picked from commit f79336058620fb4d44a924af211f3a8fef5bacb4) original commit: 2c77ae5e3c9bb7ff89b4e9da70c1b06f657f2f52 --- collects/mrlib/image-core.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index 9608c082..73392117 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -1001,7 +1001,8 @@ the mask bitmap and the original bitmap are all together in a single bytes! [update (λ (i) (let ([o (vector-ref v i)]) - (let ([nv (call-with-values (λ () (bitmap->bytes o)) vector)]) + (let ([nv (and o + (call-with-values (λ () (bitmap->bytes o)) vector))]) (vector-set! v i nv))))]) (update 1) (update 2)