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
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
