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

probable fix to error seen in drdr

Browse Source 
svn: r17827
This commit is contained in:
Robby Findler 2010-01-25 21:51:52 +00:00
parent 04725539c7
commit f54ccdc9d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/redex/private/bitmap-test-util.ss
View File

@ -39,8 +39,8 @@
(send bdc set-bitmap #f) (send bdc set-bitmap #f)
bm))] bm))]
[new-bitmap (make-object bitmap% [new-bitmap (make-object bitmap%
(inexact->exact (pict-width pict)) (ceiling (inexact->exact (pict-width pict)))
(inexact->exact (pict-height pict)))] (ceiling (inexact->exact (pict-height pict))))]
[bdc (make-object bitmap-dc% new-bitmap)]) [bdc (make-object bitmap-dc% new-bitmap)])
(send bdc clear) (send bdc clear)
(draw-pict pict bdc 0 0) (draw-pict pict bdc 0 0)