From f54ccdc9d55b6a38947ada65eb0b765164fbecac Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 25 Jan 2010 21:51:52 +0000 Subject: [PATCH] probable fix to error seen in drdr svn: r17827 --- collects/redex/private/bitmap-test-util.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/redex/private/bitmap-test-util.ss b/collects/redex/private/bitmap-test-util.ss index cf2dcada8d..a830bf76b7 100644 --- a/collects/redex/private/bitmap-test-util.ss +++ b/collects/redex/private/bitmap-test-util.ss @@ -39,8 +39,8 @@ (send bdc set-bitmap #f) bm))] [new-bitmap (make-object bitmap% - (inexact->exact (pict-width pict)) - (inexact->exact (pict-height pict)))] + (ceiling (inexact->exact (pict-width pict))) + (ceiling (inexact->exact (pict-height pict))))] [bdc (make-object bitmap-dc% new-bitmap)]) (send bdc clear) (draw-pict pict bdc 0 0)