From c3569f02fa9d086bb3eae903f63aed101e8d3dd8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 12 Jan 2019 16:31:13 -0600
Subject: [PATCH] io.sockets: When we throw an error upon failing to resolve a
 host, report the host name.

---
 basis/io/sockets/sockets.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 2654acf76d..bd006ca2ab 100644
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -218,7 +218,7 @@ M: inet6 present
 
 M: inet6 protocol drop 0 ;
 
-ERROR: addrinfo-error n string ;
+ERROR: addrinfo-error n string host ;
 
 <PRIVATE
 
@@ -398,10 +398,10 @@ M: inet present
 
 C: <inet> inet
 
-M: string resolve-host
-    f prepare-addrinfo f void* <ref> [
+M:: string resolve-host ( host -- seq )
+    host f prepare-addrinfo f void* <ref> [
         getaddrinfo [
-            dup addrinfo-error-string addrinfo-error
+            dup addrinfo-error-string host addrinfo-error
         ] unless-zero
     ] keep void* deref addrinfo memory>struct
     [ parse-addrinfo-list ] keep freeaddrinfo ;