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

Fixes bug in typesetting tests

Browse Source
This commit is contained in:
Casey Klein 2010-11-28 06:39:55 -06:00
parent 68391fe2ea
commit de775e6dc1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/tests/bitmap-test-util.rkt
View File

@ -92,10 +92,10 @@
(let loop ([y 0])
(unless (= y h)
(cond
[(and (<= x (send new-bitmap get-width))
(<= y (send new-bitmap get-height))
(<= x (send old-bitmap get-width))
(<= y (send old-bitmap get-height)))
[(and (< x (send new-bitmap get-width))
(< y (send new-bitmap get-height))
(< x (send old-bitmap get-width))
(< y (send old-bitmap get-height)))
(send new get-pixel x y new-c)
(send old get-pixel x y old-c)
(cond