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 
(cherry picked from commit f79336058620fb4d44a924af211f3a8fef5bacb4)

original commit: 2c77ae5e3c9bb7ff89b4e9da70c1b06f657f2f52
This commit is contained in:
Robby Findler 2010-08-02 13:01:27 -05:00 committed by Eli Barzilay
parent c012472a62
commit 286312cf28
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)