From 0b12dcfd547e93d0df117ca5572bfc43e6e1ae6a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 14 Oct 2005 14:11:58 +0000
Subject: [PATCH] cache on content and type, not just content

svn: r1084
---
 collects/mrlib/include-bitmap.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mrlib/include-bitmap.ss b/collects/mrlib/include-bitmap.ss
index 57d5d7e54d..8477a27fe0 100644
--- a/collects/mrlib/include-bitmap.ss
+++ b/collects/mrlib/include-bitmap.ss
@@ -46,7 +46,7 @@
   (define cached (make-hash-table 'equal))
 
   (define (get-or-load-bitmap content orig type)
-    (hash-table-get cached content
+    (hash-table-get cached (cons content type)
 		    (lambda ()
 		      (let ([bm (let ([fn (make-temporary-file)])
 				  (dynamic-wind
@@ -62,5 +62,5 @@
 			  (error 'include-bitmap
 				 "unable to parse image, originated from: ~a"
 				 (path->string (bytes->path orig))))
-			(hash-table-put! cached content bm)
+			(hash-table-put! cached (cons content type) bm)
 			bm)))))