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

Cleanup

Browse Source 
svn: r12314
This commit is contained in:
Jay McCarthy 2008-11-05 22:05:13 +00:00
parent 2fc429a9d7
commit 88c842bd06
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

6
collects/web-server/private/connection-manager.ss
View File

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