From f79336058620fb4d44a924af211f3a8fef5bacb4 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) --- 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 9608c0823e..733921173c 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)