~ chicken-core (chicken-5) 73be14999ab7e63d2b404f2fb6eeb50d02e482f3

commit 73be14999ab7e63d2b404f2fb6eeb50d02e482f3
Author:     Florian Zumbiehl <florz@florz.de>
AuthorDate: Fri Mar 15 17:05:58 2013 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sat Mar 16 18:16:39 2013 +0100

    tcp-listen: allow port 65535
    
    Port 65535 is a perfectly valid TCP port which so far was rejected by
    tcp-listen.
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/tcp.scm b/tcp.scm
index 758c7d20..45c63c6d 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -255,7 +255,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)