Refer to correct socket function names in errors.

* socket.c (sock_bind, sock_connect, sock_listen): Report
function name as sock-bind, sock-connect and sock-listen,
rather than bind, connect and listen.

1 files changed, 3 insertions, 3 deletions

diff --git a/socket.c b/socket.c
index c263edb1..49b531a8 100644
--- a/socket.c
+++ b/socket.c
@@ -248,7 +248,7 @@ static val sock_bind(val sock, val sockaddr)
   sockaddr_in(sockaddr, family, &sa, &salen);
 
   if (bind(sfd, coerce(struct sockaddr *, &sa), salen) != 0)
-    uw_throwf(socket_error_s, lit("bind failed: ~d/~s"),
+    uw_throwf(socket_error_s, lit("sock-bind failed: ~d/~s"),
               num(errno), string_utf8(strerror(errno)), nao);
 
   return t;
@@ -264,7 +264,7 @@ static val sock_connect(val sock, val sockaddr)
   sockaddr_in(sockaddr, family, &sa, &salen);
 
   if (connect(c_num(sfd), coerce(struct sockaddr *, &sa), salen) != 0)
-    uw_throwf(socket_error_s, lit("connect failed: ~d/~s"),
+    uw_throwf(socket_error_s, lit("sock-connect failed: ~d/~s"),
               num(errno), string_utf8(strerror(errno)), nao);
 
   sock_set_peer(sock, sockaddr);
@@ -277,7 +277,7 @@ static val sock_listen(val sock, val backlog)
   val sfd = stream_fd(sock);
 
   if (listen(c_num(sfd), c_num(default_arg(backlog, num_fast(16)))))
-    uw_throwf(socket_error_s, lit("listen failed: ~d/~s"),
+    uw_throwf(socket_error_s, lit("sock-listen failed: ~d/~s"),
               num(errno), string_utf8(strerror(errno)), nao);
 
   return t;