sock-connect return value change.

* socket.c (sock_connect): return a useful value rather than
t, namely the socket.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/socket.c b/socket.c
index 17949a7c..d7d49b4c 100644
--- a/socket.c
+++ b/socket.c
@@ -670,7 +670,7 @@ static val sock_connect(val sock, val sockaddr)
 
     sock_set_peer(sock, sockaddr);
 
-    return t;
+    return sock;
   }
 
   uw_throwf(socket_error_s, lit("sock-connect: cannot connect ~s"), sock, nao);