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

FIxing error exposed by Stefan

Browse Source
This commit is contained in:
Jay McCarthy 2011-01-03 07:12:24 -07:00
parent fbe6e06957
commit daf3219cbe
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/dispatchers/dispatch-servlets.rkt
View File

@ -61,7 +61,7 @@
(parameterize ([current-custodian instance-custodian] (parameterize ([current-custodian instance-custodian]
[current-execution-context (make-execution-context req)] [current-execution-context (make-execution-context req)]
[exit-handler [exit-handler
(lambda _ (lambda (r)
(kill-connection! conn) (kill-connection! conn)
(custodian-shutdown-all instance-custodian))]) (custodian-shutdown-all instance-custodian))])
(define maybe-response (define maybe-response

6
collects/web-server/servlet/setup.rkt
View File

@ -62,15 +62,17 @@
(values instance-id (values instance-id
(custodian-box-value ((manager-continuation-lookup manager) instance-id k-id salt)))])] (custodian-box-value ((manager-continuation-lookup manager) instance-id k-id salt)))])]
[else [else
(values ((manager-create-instance manager) (exit-handler)) (define eh (exit-handler))
(values ((manager-create-instance manager) (λ () (eh #f)))
start)])) start)]))
(parameterize ([current-servlet-instance-id instance-id]) (parameterize ([current-servlet-instance-id instance-id])
(handler req)))))) (handler req))))))
(define (make-stateless.servlet directory stuffer manager start) (define (make-stateless.servlet directory stuffer manager start)
(define eh (exit-handler))
(define instance-id (define instance-id
((manager-create-instance manager) (exit-handler))) ((manager-create-instance manager) (λ () (eh #f))))
(define ses (define ses
(make-stateless-servlet (make-stateless-servlet
(current-custodian) (current-namespace) (current-custodian) (current-namespace)