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

freebsd-work
Doug Coleman 2019-01-12 16:31:13 -06:00
parent 053daddfa6
commit c3569f02fa
1 changed files with 4 additions and 4 deletions

View File

@ -218,7 +218,7 @@ M: inet6 present
M: inet6 protocol drop 0 ; M: inet6 protocol drop 0 ;
ERROR: addrinfo-error n string ; ERROR: addrinfo-error n string host ;
<PRIVATE <PRIVATE
@ -398,10 +398,10 @@ M: inet present
C: <inet> inet C: <inet> inet
M: string resolve-host M:: string resolve-host ( host -- seq )
f prepare-addrinfo f void* <ref> [ host f prepare-addrinfo f void* <ref> [
getaddrinfo [ getaddrinfo [
dup addrinfo-error-string addrinfo-error dup addrinfo-error-string host addrinfo-error
] unless-zero ] unless-zero
] keep void* deref addrinfo memory>struct ] keep void* deref addrinfo memory>struct
[ parse-addrinfo-list ] keep freeaddrinfo ; [ parse-addrinfo-list ] keep freeaddrinfo ;