rem: getnameinfo((struct sockaddr *)here, here_len,
add: getnameinfo((struct sockaddr *)there, there_len,
context: static Scheme_Object *tcp_addresses(int argc, Scheme_Object *argv[]){#ifdef USE_TCP  Scheme_Tcp *tcp = NULL;  int closed = 0;  Scheme_Object *result[2];  if (SCHEME_OUTPORTP(argv[0])) {    Scheme_Output_Port *op;    op = (Scheme_Output_Port *)argv[0];    if (op->sub_type == scheme_tcp_output_port_type)      tcp = op->port_data;    closed = op->closed;  } else if (SCHEME_INPORTP(argv[0])) {    Scheme_Input_Port *ip;    ip = (Scheme_Input_Port *)argv[0];    if (ip->sub_type == scheme_tcp_input_port_type)      tcp = ip->port_data;    closed = ip->closed;  }  if (!tcp)    scheme_wrong_type("tcp-addresses", "tcp-port", 0, argc, argv);  if (closed)    scheme_raise_exn(MZEXN_FAIL_NETWORK,		     "tcp-addresses: port is closed");# ifdef USE_SOCKETS_TCP  {    int l;    char here[MZ_SOCK_NAME_MAX_LEN], there[MZ_SOCK_NAME_MAX_LEN];    char host_buf[MZ_SOCK_HOST_NAME_MAX_LEN];    int here_len, there_len;    l = sizeof(here);    if (getsockname(tcp->tcp, (struct sockaddr *)here, &l)) {      scheme_raise_exn(MZEXN_FAIL_NETWORK,		       "tcp-addresses: could not get local address (%e)",		       SOCK_ERRNO());    }    here_len = l;    l = sizeof(there);    if (getpeername(tcp->tcp, (struct sockaddr *)there, &l)) {      scheme_raise_exn(MZEXN_FAIL_NETWORK,		       "tcp-addresses: could not get peer address (%e)",		       SOCK_ERRNO());    }    there_len = l;    getnameinfo((struct sockaddr *)here, here_len, 		host_buf, sizeof(host_buf),		NULL, 0,		NI_NUMERICHOST | NI_NUMERICSERV);    result[0] = scheme_make_utf8_string(host_buf);    getnameinfo((struct sockaddr *)here, here_len, 		host_buf, sizeof(host_buf),		NULL, 0,		NI_NUMERICHOST | NI_NUMERICSERV);    result[1] = scheme_make_utf8_string(host_buf);  }# else  result[0] = scheme_make_utf8_string("0.0.0.0");  result[1] = result[1];# endif  return scheme_values(2, result);#else  /* First arg can't possible be right! */  scheme_wrong_type("tcp-addresses", "tcp-port", 0, argc, argv);#endif}