From 785bac23850179e85292b9f8ff5c7f8ce00acaa3 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 9 Aug 2007 12:13:28 +0000
Subject: [PATCH] up

svn: r7064
---
 collects/web-server/dispatchers/dispatch-servlets.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/web-server/dispatchers/dispatch-servlets.ss b/collects/web-server/dispatchers/dispatch-servlets.ss
index bd45a596d9..5787a8b536 100644
--- a/collects/web-server/dispatchers/dispatch-servlets.ss
+++ b/collects/web-server/dispatchers/dispatch-servlets.ss
@@ -67,7 +67,7 @@
               (parameterize ([current-directory (directory-part servlet-path)]
                              [current-custodian instance-custodian]
                              [exit-handler
-                              (lambda (v)
+                              (lambda _
                                 (kill-connection! conn)
                                 (custodian-shutdown-all instance-custodian))])
                 ;; any resources (e.g. threads) created when the
@@ -105,7 +105,7 @@
                        [current-custodian (servlet-custodian the-servlet)]
                        [current-namespace (servlet-namespace the-servlet)]
                        [exit-handler
-                        (lambda (v)
+                        (lambda _
                           (kill-connection! conn)
                           (custodian-shutdown-all (servlet-custodian the-servlet)))])
           (with-handlers ([exn:fail:servlet-manager:no-instance?