use hash-ref!

svn: r14438

collects/tests/web-server/private/cache-table-test.ss

@@ -35,3 +35,8 @@
                    (cache-table-lookup! ct 'foo (lambda () #t))
                    (cache-table-clear! ct)
                    (cache-table-lookup! ct 'foo (lambda () #f)))))))
+
+#|
+(require (planet schematics/schemeunit:3/text-ui))
+(run-tests cache-table-tests)
+|#

collects/web-server/private/cache-table.ss

@@ -25,12 +25,7 @@
      (call-with-semaphore
       sema
       (lambda ()
-        (hash-ref
-         ht entry-id
-         (lambda ()
-           (define entry (entry-thunk))
-           (hash-set! ht entry-id entry)
-           entry)))))))
+        (hash-ref! ht entry-id entry-thunk))))))
 
 (provide/contract
  [rename new-cache-table make-cache-table