diff --git a/collects/web-server/dispatch-servlets.ss b/collects/web-server/dispatch-servlets.ss index 78e9f97082..38e84a2642 100644 --- a/collects/web-server/dispatch-servlets.ss +++ b/collects/web-server/dispatch-servlets.ss @@ -37,7 +37,6 @@ req (read-bindings/handled conn meth uri (request-headers req) host-info)) - (cond [(continuation-url? uri) => (lambda (k-ref) diff --git a/collects/web-server/web-server-unit.ss b/collects/web-server/web-server-unit.ss index 07e5f4486a..3a3473242b 100644 --- a/collects/web-server/web-server-unit.ss +++ b/collects/web-server/web-server-unit.ss @@ -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)])