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

add a coercion so that equality is simpler for things produced by 'bitmap'

Browse Source
This commit is contained in:
Robby Findler 2010-12-22 14:22:39 -06:00
parent 7716851cde
commit 4f19b0d454
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/2htdp/private/image-more.rkt
View File

@ -1264,7 +1264,8 @@
arg arg
(or (current-load-relative-directory) (or (current-load-relative-directory)
(current-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) (define/chk (image->color-list image)
(let* ([w (image-width image)] (let* ([w (image-width image)]