Cleanup

svn: r12314

collects/web-server/dispatchers/dispatch-servlets.ss

@@ -30,6 +30,7 @@
                     dispatcher/c))])
 
 (define interface-version 'v1)
+; XXX url->servlet
 (define (make config:scripts 
               #:url->path url->path
               #:make-servlet-namespace [make-servlet-namespace (make-make-servlet-namespace)]

collects/web-server/private/connection-manager.ss

@@ -38,16 +38,18 @@
                 (lambda () 
                   (cond
                     [(weak-box-value conn-wb)
-                     => kill-connection!]))))
+                     => kill-connection-w/o-timer!]))))
   conn)
 
 ;; kill-connection!: connection -> void
 ;; kill this connection
 (define (kill-connection! conn)
   #;(printf "K: ~a~n" (connection-id conn))
-  ; XXX Don't need to do this when called from timer
   (with-handlers ([exn? void])
     (cancel-timer! (connection-timer conn)))
+  (kill-connection-w/o-timer! conn))
+
+(define (kill-connection-w/o-timer! conn)  
   (with-handlers ([exn:fail:network? void])
     (close-output-port (connection-o-port conn)))
   (with-handlers ([exn:fail:network? void])