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

Improving servlet loading performance

Browse Source 
svn: r685
This commit is contained in:
Jay McCarthy 2005-08-26 14:53:25 +00:00
parent 7ada980df0
commit 9d4f01f1db
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/web-server/dispatch-servlets.ss
View File

@ -250,11 +250,18 @@
;; refreshed (see dispatch). ;; refreshed (see dispatch).
(define (cached-load name) (define (cached-load name)
(let ([e (let ([e
(call-with-semaphore config:scripts-lock ; First try to get the cache entry
(lambda () (hash-table-get
(hash-table-get (unbox config:scripts) (unbox config:scripts)
name name
(lambda () (reload-servlet-script name)))))]) (lambda ()
; Then try to update the cache entry
(call-with-semaphore
config:scripts-lock
(lambda ()
(hash-table-get (unbox config:scripts) name
(lambda ()
(reload-servlet-script name)))))))])
(values (cache-entry-servlet e) (values (cache-entry-servlet e)
(cache-entry-namespace e)))) (cache-entry-namespace e))))