io.sockets: When we throw an error upon failing to resolve a host, report the host...

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 2654acf76de514a4b5eb27bcfc9368c492f987f5..bd006ca2aba0e9003c247b8ca322c3d41aa8059f 100644 (file)
--- 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 ;