Erm, forgot the code excerpt.
1143 {
1144 struct sockaddr_in c_inet;
1145
1146 c_inet.sin_addr.s_addr =
1147 htonl (scm_to_ulong (SCM_SIMPLE_VECTOR_REF (address, 1)));
1148 c_inet.sin_port =
1149 htons (scm_to_ushort (SCM_SIMPLE_VECTOR_REF (address, 2)));
1150 c_inet.sin_family = AF_INET;
1151
1152 *address_size = sizeof (c_inet);
1153 c_address = scm_malloc (sizeof (c_inet));
1154 memcpy (c_address, &c_inet, sizeof (c_inet));
1155 }