fixed a bug reported by Todd on the mailing list (probably this is his bug anyways)
This commit is contained in:
parent
621ccbc2b4
commit
f793360586
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user