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
(make-execution-context
conn req (lambda () (suspend #t))))
(semaphore-wait (servlet-instance-mutex inst))
(let ([k*salt
(call-with-semaphore
(servlet-instance-mutex inst)
(lambda ()
; Is this why the semaphore exists?
(hash-table-get k-table (second k-ref)
(lambda ()
(raise
(make-exn:servlet-continuation
"" (current-continuation-marks)))))))])
"" (current-continuation-marks)))))])
(if (= (second k*salt) (third k-ref))
((first k*salt) req)
(raise
(make-exn:servlet-continuation
"" (current-continuation-marks)))))))))
"" (current-continuation-marks))))))
(semaphore-post (servlet-instance-mutex inst))
)))
;; ************************************************************
;; ************************************************************