[Chicken-hackers] [PATCH] tcp-listen: allow port 65535

[Florian Zumbiehl]

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