fixed image.ss

svn: r2084
This commit is contained in:
Matthias Felleisen 2006-02-02 14:10:01 +00:00
parent b7f6cc2e1d
commit b97062cb99

View File

@ -479,7 +479,6 @@ plt/collects/tests/mzscheme/image-test.ss
(define (make-simple-cache-image-snip w h px py dc-proc mask-proc)
(let ([w (inexact->exact (ceiling w))]
[h (inexact->exact (ceiling h))])
(printf "new w ~s new -h ~s\n" w h)
(let ([argb-proc
(lambda (argb-vector dx dy)
(let ([c-bm (build-bitmap (lambda (dc) (dc-proc dc 0 0)) w h)]