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

.

Browse Source 
original commit: 506cf3fccc2896c12337087016b7f9923341a806
This commit is contained in:
Matthew Flatt 2003-04-17 17:32:09 +00:00
parent c41bad8dd4
commit e8da143d93
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/net/tcp-redirect.ss
View File

@ -34,7 +34,7 @@
; : port -> void
(define (tcp-abandon-port tcp-port)
(with-handlers ([exn:application:type? void])
(when (tcp-port? tcp-port)
(raw:tcp-abandon-port tcp-port)))
; : listener -> iport oport
@ -54,18 +54,17 @@
; : tcp-port -> str str
(define (tcp-addresses tcp-port)
(with-handlers ([exn:application:type?
(lambda (exn) (values local-address local-address))])
(raw:tcp-addresses tcp-port)))
(if (tcp-port? tcp-port)
(raw:tcp-addresses tcp-port)
(values local-address local-address)))
; : port -> void
(define (tcp-close tcp-listener)
(with-handlers ([exn:application:type?
(lambda (exn)
(hash-table-remove!
port-table
(pipe-listener-port tcp-listener)))])
(raw:tcp-close tcp-listener)))
(if (tcp-listener? tcp-listener)
(raw:tcp-close tcp-listener)
(hash-table-remove!
port-table
(pipe-listener-port tcp-listener))))
; : (str nat -> iport oport) -> str nat -> iport oport
(define (gen-tcp-connect raw)