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

Indenting and bug 7544

Browse Source 
svn: r628
This commit is contained in:
Jay McCarthy 2005-08-22 12:27:47 +00:00
parent 0987bcd1dd
commit 8c8db33277
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -575,20 +575,21 @@
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 ; Is this why the semaphore exists?
(servlet-instance-mutex inst)
(lambda ()
(hash-table-get k-table (second k-ref) (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 (= (second k*salt) (third k-ref)) (if (= (second k*salt) (third k-ref))
((first 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))
)))
;; ************************************************************ ;; ************************************************************
;; ************************************************************ ;; ************************************************************