fixed a bug reported by Todd on the mailing list (probably this is his bug anyways)

This commit is contained in:
Robby Findler 2010-08-02 13:01:27 -05:00
parent 621ccbc2b4
commit f793360586

View File

@ -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)