suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
(cherry picked from commit f793360586)
This commit is contained in:
Robby Findler 2010-08-02 13:01:27 -05:00 committed by Eli Barzilay
parent b5c20267ce
commit 2c77ae5e3c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mrlib/image-core.rkt
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)