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

cache on content and type, not just content

Browse Source 
svn: r1084

original commit: 0b12dcfd547e93d0df117ca5572bfc43e6e1ae6a
This commit is contained in:
Matthew Flatt 2005-10-14 14:11:58 +00:00
parent 4c452a36a8
commit c31251df6d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/include-bitmap.ss
View File

@ -46,7 +46,7 @@
(define cached (make-hash-table 'equal)) (define cached (make-hash-table 'equal))
(define (get-or-load-bitmap content orig type) (define (get-or-load-bitmap content orig type)
(hash-table-get cached content (hash-table-get cached (cons content type)
(lambda () (lambda ()
(let ([bm (let ([fn (make-temporary-file)]) (let ([bm (let ([fn (make-temporary-file)])
(dynamic-wind (dynamic-wind
@ -62,5 +62,5 @@
(error 'include-bitmap (error 'include-bitmap
"unable to parse image, originated from: ~a" "unable to parse image, originated from: ~a"
(path->string (bytes->path orig)))) (path->string (bytes->path orig))))
(hash-table-put! cached content bm) (hash-table-put! cached (cons content type) bm)
bm))))) bm)))))