~ chicken-core (chicken-5) a931dceceb594602d5a6d337ce6dd21ec98e1389

commit a931dceceb594602d5a6d337ce6dd21ec98e1389
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Feb 9 05:07:36 2011 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Feb 9 05:07:36 2011 -0500

    tcp-abandon-port marked wrong socket-port direction (found out by zbigniew)

diff --git a/tcp.scm b/tcp.scm
index 8fa181ed..49efac6d 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -668,7 +668,7 @@ EOF
   (##sys#check-port p 'tcp-abandon-port)
   (##sys#setislot
    (##sys#port-data p)
-   (if (##sys#slot p 1) 2 1)
+   (if (##sys#slot p 1) 1 2)
    #t) )
 
 (define (tcp-listener-fileno l)