From 4f19b0d454f2bf17fa8ec6180929cd941afd8c7f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 22 Dec 2010 14:22:39 -0600 Subject: [PATCH] add a coercion so that equality is simpler for things produced by 'bitmap' --- collects/2htdp/private/image-more.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt index 7f22e575b5..313115720e 100644 --- a/collects/2htdp/private/image-more.rkt +++ b/collects/2htdp/private/image-more.rkt @@ -1264,7 +1264,8 @@ arg (or (current-load-relative-directory) (current-directory)))])]) - #`(make-object image-snip% (make-object bitmap% #,path 'unknown/mask)))])) + ;; the rotate does a coercion to a 2htdp/image image + #`(rotate 0 (make-object image-snip% (make-object bitmap% #,path 'unknown/mask))))])) (define/chk (image->color-list image) (let* ([w (image-width image)]