suzanne.soy/gui
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 
original commit: f79336058620fb4d44a924af211f3a8fef5bacb4
This commit is contained in:
Robby Findler 2010-08-02 13:01:27 -05:00
parent db4c530020
commit 7c5fa6e851
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)