From c96bbe640d2e3254c255cfedf1e467b111cb83a5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 26 May 2010 16:54:00 -0500 Subject: [PATCH] =?UTF-8?q?makes=20image=3D=3F=20work=20on=202htdp/image?= =?UTF-8?q?=20images.?= --- collects/lang/private/imageeq.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/lang/private/imageeq.rkt b/collects/lang/private/imageeq.rkt index a3e7397f77..c1eb2ad084 100644 --- a/collects/lang/private/imageeq.rkt +++ b/collects/lang/private/imageeq.rkt @@ -1,6 +1,7 @@ #lang scheme/base (require scheme/gui/base mrlib/cache-image-snip + (prefix-in 2htdp/image: mrlib/image-core) mzlib/class) (provide scene? image? image=? @@ -13,8 +14,8 @@ (is-a? a cache-image-snip%))) (define (image=? a-raw b-raw) - (unless (image? a-raw) (raise-type-error 'image=? "image" 0 a-raw b-raw)) - (unless (image? b-raw) (raise-type-error 'image=? "image" 1 a-raw b-raw)) + (unless (or (2htdp/image:image? a-raw) (image? a-raw)) (raise-type-error 'image=? "image" 0 a-raw b-raw)) + (unless (or (2htdp/image:image? b-raw) (image? b-raw)) (raise-type-error 'image=? "image" 1 a-raw b-raw)) ;; Rely on image-snip% implementing equal<%>: (equal? a-raw b-raw))