Port 65535 is a perfectly valid TCP port which so far was rejected by tcp-listen. --- tcp.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/tcp.scm b/tcp.scm index 5a9e2e1..cc68def 100644 --- a/tcp.scm +++ b/tcp.scm @@ -251,7 +251,7 @@ EOF (define (##net#bind-socket port style host) (##sys#check-exact port) - (when (or (fx< port 0) (fx>= port 65535)) + (when (or (fx< port 0) (fx> port 65535)) (##sys#signal-hook #:domain-error 'tcp-listen "invalid port number" port) ) (let ((s (##net#socket _af_inet style 0))) (when (eq? _invalid_socket s) -- 1.7.2.5 _______________________________________________ Chicken-hackers mailing list Chicken-hackers@nongnu.org https://lists.nongnu.org/mailman/listinfo/chicken-hackers