sock-connect return value change.

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

* txr.1: Documented.

2 files changed, 2 insertions, 2 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);
diff --git a/txr.1 b/txr.1
index 0953ae26..a6dc6d76 100644
--- a/txr.1
+++ b/txr.1
@@ -37867,7 +37867,7 @@ object of type matching the address family of the socket.
 If the operation fails, an exception of type
 .code socket-error
 is thrown. Otherwise, the function returns
-.codn t .
+.metn socket .
 
 .coNP Function @ sock-bind
 .synb