fix tcp-addresses

svn: r1248
This commit is contained in:
Matthew Flatt 2005-11-07 22:58:51 +00:00
parent 6cb9c6da0c
commit d8e922eb70

View File

@ -2135,7 +2135,7 @@ static Scheme_Object *tcp_addresses(int argc, Scheme_Object *argv[])
NI_NUMERICHOST | NI_NUMERICSERV);
result[0] = scheme_make_utf8_string(host_buf);
getnameinfo((struct sockaddr *)here, here_len,
getnameinfo((struct sockaddr *)there, there_len,
host_buf, sizeof(host_buf),
NULL, 0,
NI_NUMERICHOST | NI_NUMERICSERV);