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

Formating

Browse Source 
svn: r698
This commit is contained in:
Jay McCarthy 2005-08-29 13:17:12 +00:00
parent dd88172baf
commit 6f71fcd413
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,6 @@
req
(read-bindings/handled conn meth uri (request-headers req)
host-info))
(cond
[(continuation-url? uri)
=> (lambda (k-ref)

22
collects/web-server/web-server-unit.ss
View File

@ -152,17 +152,17 @@
;; at a later time.
(define dispatch
(let* ([cache (make-hash-table 'equal)]
[sema (make-semaphore 1)]
[lookup-dispatcher
(lambda (host host-info)
(hash-table-get
cache host
(lambda ()
(call-with-semaphore
sema (lambda ()
(hash-table-get
cache host
(lambda () (host-info->dispatcher host-info))))))))])
[sema (make-semaphore 1)]
[lookup-dispatcher
(lambda (host host-info)
(hash-table-get
cache host
(lambda ()
(call-with-semaphore
sema (lambda ()
(hash-table-get
cache host
(lambda () (host-info->dispatcher host-info))))))))])
(lambda (conn req)
(let* ([host (get-host (request-uri req) (request-headers req))]
[host-info (config:virtual-hosts host)])