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

fix coerce-to-cache-image-snip

Browse Source 
svn: r12973
This commit is contained in:
Matthew Flatt 2009-01-02 20:15:58 +00:00
parent e92b588985
commit b58664d1f8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mrlib/cache-image-snip.ss
View File

@ -277,6 +277,7 @@
;; coerce-to-cache-image-snip : image -> (is-a?/c cache-image-snip%) ;; coerce-to-cache-image-snip : image -> (is-a?/c cache-image-snip%)
(define (coerce-to-cache-image-snip snp) (define (coerce-to-cache-image-snip snp)
(cond (cond
[(is-a? snp cache-image-snip%) snp]
[(hash-table-get image-snip-cache snp (λ () #f)) => values] [(hash-table-get image-snip-cache snp (λ () #f)) => values]
[(is-a? snp image-snip%) [(is-a? snp image-snip%)
(let* ([bmp (send snp get-bitmap)] (let* ([bmp (send snp get-bitmap)]