From b58664d1f87f7de9b2194425998e9f0cfb64154d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Jan 2009 20:15:58 +0000 Subject: [PATCH] fix coerce-to-cache-image-snip svn: r12973 --- collects/mrlib/cache-image-snip.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index 2f2c083317..91a799b1be 100644 --- 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)]