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

use hash-ref!

Browse Source 
svn: r14438
This commit is contained in:
Jay McCarthy 2009-04-06 14:43:33 +00:00
parent c4e2e9af6d
commit df56a8e3c1
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

7
collects/web-server/private/cache-table.ss
View File

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