mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* net_db.c (scm_getserv): add missing SCM_ALLOW_INTS.

Browse source 
use htons in getservbyport argument.
This commit is contained in:
Gary Houston 1997-01-08 07:49:37 +00:00
parent 920235cc17
commit 65b376c7f2
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/socket.c
View file

@ -465,7 +465,7 @@ scm_addr_vector (address, proc)
ve[2] = scm_ulong2num ((unsigned long) ntohs (nad->sin_port));
}
else
scm_misc_error (proc, "Unrecognised internet address type: %s",
scm_misc_error (proc, "Unrecognised address family: %s",
scm_listify (SCM_MAKINUM (fam), SCM_UNSPECIFIED));
return result;