From e165e6b726edd55fb2daf761357d4ae79c54ee3f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Apr 2003 16:38:13 +0000 Subject: [PATCH] . original commit: b1e6452c738c5927ea55f968d26db0d232e5c180 --- collects/net/tcp-redirect.ss | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.ss index 618511cd5f..7af9cbde2b 100644 --- a/collects/net/tcp-redirect.ss +++ b/collects/net/tcp-redirect.ss @@ -16,13 +16,9 @@ (define raw:tcp-listen tcp-listen) (define raw:tcp-listener? tcp-listener?) - ; I cannot follow the data definiton well because I don't have - ; predicates tcp-port? or pipe-port?. I could print them out and - ; look at the string, but that's ugly, too. Instead I use with-handlers. - - ; 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. + ; For tcp-listeners, we use an else branch in the conds since + ; (instead of a contract) I want the same error message as the raw + ; primitive for bad inputs. ; : (listof nat) -> (unit/sig () -> net:tcp^) (define (tcp-redirect redirected-ports)