fix coerce-to-cache-image-snip

svn: r12973
2009-01-02 20:15:58 +00:00 · 2009-01-02 20:15:58 +00:00 · b58664d1f8
commit b58664d1f8
parent e92b588985
1 changed files with 1 additions and 0 deletions
--- a/collects/mrlib/cache-image-snip.ss
+++ b/collects/mrlib/cache-image-snip.ss
@ -277,6 +277,7 @@
  ;; coerce-to-cache-image-snip : image -> (is-a?/c cache-image-snip%)
  (define (coerce-to-cache-image-snip snp)
    (cond
+      [(is-a? snp cache-image-snip%) snp]
      [(hash-table-get image-snip-cache snp (λ () #f)) => values]
      [(is-a? snp image-snip%)
       (let* ([bmp (send snp get-bitmap)]