From e4ffaabd35faf68bea9a07ced7faebfcb662cd94 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Nov 2010 15:14:23 -0600 Subject: [PATCH] fix merge mistake original commit: 1db27b474f32f0c136f91b509b02b4a48da0f2dd --- collects/mrlib/image-core.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index e93bf5d8..0190fbf9 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -719,8 +719,8 @@ has been moved out). (curve-segment-e-pull shape) (scale-color (curve-segment-color shape) x-scale y-scale))]) (render-poly/line-segment/curve-segment this-one dc dx dy))] - [(or (bitmap? shape) (np-atomic-shape? shape)) - (let* ([shape (if (bitmap? shape) + [(or (ibitmap? shape) (np-atomic-shape? shape)) + (let* ([shape (if (ibitmap? shape) (make-flip #f shape) shape)] [this-one (scale-np-atomic x-scale y-scale shape)])