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

.

Browse Source 
original commit: b1e6452c738c5927ea55f968d26db0d232e5c180
This commit is contained in:
Matthew Flatt 2003-04-23 16:38:13 +00:00
parent e8da143d93
commit e165e6b726
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,13 +16,9 @@
(define raw:tcp-listen tcp-listen) (define raw:tcp-listen tcp-listen)
(define raw:tcp-listener? tcp-listener?) (define raw:tcp-listener? tcp-listener?)
; I cannot follow the data definiton well because I don't have ; For tcp-listeners, we use an else branch in the conds since
; predicates tcp-port? or pipe-port?. I could print them out and ; (instead of a contract) I want the same error message as the raw
; look at the string, but that's ugly, too. Instead I use with-handlers. ; primitive for bad inputs.
; For tcp-listeners, I do have suitable predicates, but I still use
; an else branch in the conds since I want the same error message as
; the raw primitive for bad inputs.
; : (listof nat) -> (unit/sig () -> net:tcp^) ; : (listof nat) -> (unit/sig () -> net:tcp^)
(define (tcp-redirect redirected-ports) (define (tcp-redirect redirected-ports)