From 60ac365c8dbfce9f481fbfe58d4baae70df889b4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 14 Mar 2016 21:52:08 -0700
Subject: sock-connect return value change.

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

* txr.1: Documented.
---
 socket.c | 2 +-
 txr.1    | 2 +-
 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
-- 
cgit v1.2.3