From b9ff7dc4afc8ea580c216a36932980a13033ee59 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 15 Jun 2011 12:52:06 +0800 Subject: [PATCH] thanks, Sam. --- collects/drracket/private/unit.rkt | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 2bce25307c..97af6d4195 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -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