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

thanks, Sam.

Browse Source
This commit is contained in:
Robby Findler 2011-06-15 12:52:06 +08:00
parent 68f34502b8
commit b9ff7dc4af
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drracket/private/unit.rkt
View File

@ -2111,12 +2111,9 @@ module browser threading seems wrong.
(andmap eq? tab-label-cache-valid current-paths))
(set! tab-label-cache-valid current-paths)
(set! tab-label-cache (make-hasheq)))
(hash-ref tab-label-cache
fn
(lambda ()
(define ans (compute-tab-label-from-filename fn))
(hash-set! tab-label-cache fn ans)
ans)))
(hash-ref! tab-label-cache
fn
(lambda () (compute-tab-label-from-filename fn))))
(define/private (compute-tab-label-from-filename fn)
(let* ([take-n