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

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

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