suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

makes image=? work on 2htdp/image images.

Browse Source
This commit is contained in:
Robby Findler 2010-05-26 16:54:00 -05:00
parent bc242e06f3
commit c96bbe640d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/lang/private/imageeq.rkt
View File

@ -1,6 +1,7 @@
#lang scheme/base #lang scheme/base
(require scheme/gui/base (require scheme/gui/base
mrlib/cache-image-snip mrlib/cache-image-snip
(prefix-in 2htdp/image: mrlib/image-core)
mzlib/class) mzlib/class)
(provide scene? image? image=? (provide scene? image? image=?
@ -13,8 +14,8 @@
(is-a? a cache-image-snip%))) (is-a? a cache-image-snip%)))
(define (image=? a-raw b-raw) (define (image=? a-raw b-raw)
(unless (image? a-raw) (raise-type-error 'image=? "image" 0 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 (image? b-raw) (raise-type-error 'image=? "image" 1 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<%>: ;; Rely on image-snip% implementing equal<%>:
(equal? a-raw b-raw)) (equal? a-raw b-raw))