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

avoiding meaning errors

Browse Source 
svn: r2062
This commit is contained in:
Jay McCarthy 2006-01-31 21:17:10 +00:00
parent fddb1fa862
commit bd3860ed43
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/web-server/connection-manager.ss
View File

@ -34,13 +34,14 @@
;; kill this connection
(define (kill-connection! conn-demned)
(cancel-timer! (connection-timer conn-demned))
(close-output-port (connection-o-port conn-demned))
(close-input-port (connection-i-port conn-demned))
(with-handlers ([exn:fail:network? void])
(close-output-port (connection-o-port conn-demned)))
(with-handlers ([exn:fail:network? void])
(close-input-port (connection-i-port conn-demned)))
(set-connection-close?! conn-demned #t)
(custodian-shutdown-all (connection-custodian conn-demned)))
;; adjust-connection-timeout!: connection number -> void
;; change the expiration time for this connection
(define (adjust-connection-timeout! conn time)
(reset-timer (connection-timer conn) time))
)
(reset-timer (connection-timer conn) time)))