From daf3219cbe317e2c7c91c48c57da318fe8fa90a6 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 3 Jan 2011 07:12:24 -0700 Subject: [PATCH] FIxing error exposed by Stefan --- collects/web-server/dispatchers/dispatch-servlets.rkt | 2 +- collects/web-server/servlet/setup.rkt | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/web-server/dispatchers/dispatch-servlets.rkt b/collects/web-server/dispatchers/dispatch-servlets.rkt index b3d743fa63..8d3b02eb8d 100644 --- a/collects/web-server/dispatchers/dispatch-servlets.rkt +++ b/collects/web-server/dispatchers/dispatch-servlets.rkt @@ -61,7 +61,7 @@ (parameterize ([current-custodian instance-custodian] [current-execution-context (make-execution-context req)] [exit-handler - (lambda _ + (lambda (r) (kill-connection! conn) (custodian-shutdown-all instance-custodian))]) (define maybe-response diff --git a/collects/web-server/servlet/setup.rkt b/collects/web-server/servlet/setup.rkt index b8946eb16c..1eb2d5e6b5 100644 --- a/collects/web-server/servlet/setup.rkt +++ b/collects/web-server/servlet/setup.rkt @@ -62,15 +62,17 @@ (values instance-id (custodian-box-value ((manager-continuation-lookup manager) instance-id k-id salt)))])] [else - (values ((manager-create-instance manager) (exit-handler)) + (define eh (exit-handler)) + (values ((manager-create-instance manager) (λ () (eh #f))) start)])) (parameterize ([current-servlet-instance-id instance-id]) (handler req)))))) (define (make-stateless.servlet directory stuffer manager start) + (define eh (exit-handler)) (define instance-id - ((manager-create-instance manager) (exit-handler))) + ((manager-create-instance manager) (λ () (eh #f)))) (define ses (make-stateless-servlet (current-custodian) (current-namespace)