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

Indenting and bug 7544

Browse Source 
svn: r627
This commit is contained in:
Jay McCarthy 2005-08-22 12:21:18 +00:00
parent 19b1ddfa72
commit 0987bcd1dd
1 changed files with 165 additions and 163 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,7 @@
(lib "string.ss") (lib "string.ss")
(lib "url.ss" "net") (lib "url.ss" "net")
(lib "xml.ss" "xml") (lib "xml.ss" "xml")
) (lib "list.ss"))
(provide web-server@) (provide web-server@)
(define myprint (define myprint
@ -562,7 +562,8 @@
host-info)) host-info))
(request-uri req)) (request-uri req))
(request-method req)))]) (request-method req)))])
(let* ([inst (hash-table-get config:instances (car k-ref) (let* ([inst
(hash-table-get config:instances (first k-ref)
(lambda () (lambda ()
(raise (raise
(make-exn:servlet-instance (make-exn:servlet-instance
@ -574,19 +575,20 @@
inst inst
(make-execution-context (make-execution-context
conn req (lambda () (suspend #t)))) conn req (lambda () (suspend #t))))
(semaphore-wait (servlet-instance-mutex inst)) (let ([k*salt
(let ((k*salt (call-with-semaphore
(hash-table-get k-table (cadr k-ref) (servlet-instance-mutex inst)
(lambda ()
(hash-table-get k-table (second k-ref)
(lambda () (lambda ()
(raise (raise
(make-exn:servlet-continuation (make-exn:servlet-continuation
"" (current-continuation-marks))))))) "" (current-continuation-marks)))))))])
(if (= (cadr k*salt) (caddr k-ref)) (if (= (second k*salt) (third k-ref))
((car k*salt) req) ((first k*salt) req)
(raise (raise
(make-exn:servlet-continuation (make-exn:servlet-continuation
"" (current-continuation-marks)))))) "" (current-continuation-marks)))))))))
(semaphore-post (servlet-instance-mutex inst)))))
;; ************************************************************ ;; ************************************************************
;; ************************************************************ ;; ************************************************************