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