From 471bd95f5c984eebe4caa3cc73a3fe2aea428dcb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 2 Dec 2009 04:42:35 +0000 Subject: [PATCH] PR 10635 svn: r17156 original commit: 4c18e8212f0978cc98d2151163b6993e4bd8bd46 --- collects/mrlib/private/image-core-bitmap.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/private/image-core-bitmap.ss b/collects/mrlib/private/image-core-bitmap.ss index 7491cb4f..112af700 100644 --- a/collects/mrlib/private/image-core-bitmap.ss +++ b/collects/mrlib/private/image-core-bitmap.ss @@ -59,8 +59,8 @@ instead of this scaling code, we use the dc<%>'s scaling code. [h (send bm get-height)] [bytes (make-bytes (* w h NUM-CHANNELS) 0)]) (send bm get-argb-pixels 0 0 w h bytes #f) - (when (send bm get-loaded-mask) - (send (send bm get-loaded-mask) get-argb-pixels 0 0 w h bytes #t)) + (when mask + (send mask get-argb-pixels 0 0 w h bytes #t)) (values bytes w h))) (define (bytes->bitmap bytes w h)