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

PR 8349 and 8364

Browse Source 
svn: r4806
This commit is contained in:
Jay McCarthy 2006-11-08 17:33:29 +00:00
parent 6b80bd355c
commit 9799cc53b0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/web-server/dispatchers/dispatch-servlets.ss
View File

@ -113,9 +113,11 @@
servlet-mutex))
(define the-exit-handler
(lambda _
(kill-connection!
(execution-context-connection
(thread-cell-ref current-execution-context)))
(define ectxt
(thread-cell-ref current-execution-context))
(when ectxt
(kill-connection!
(execution-context-connection ectxt)))
(custodian-shutdown-all instance-custodian)))
(thread-cell-set! current-execution-context ctxt)
(parameterize ([exit-handler the-exit-handler])
@ -224,14 +226,15 @@
(semaphore-wait (servlet-instance-data-mutex data))
(let ([response
(let/cc suspend
(define k ((manager-continuation-lookup manager) instance-id k-id salt))
(thread-cell-set! current-execution-context
(make-execution-context
conn req suspend))
(k req))])
(let ([k ((manager-continuation-lookup manager) instance-id k-id salt)])
(k req)))])
(output-response conn response))
(semaphore-post (servlet-instance-data-mutex data))))
((manager-instance-unlock! manager) instance-id)
(thread-cell-set! current-execution-context #f)
(thread-cell-set! current-servlet-instance-id #f)
(thread-cell-set! current-servlet #f))