diff options
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r-- | libguile/net_db.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c index bbd21d86d..9cdf52ba3 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -175,8 +175,8 @@ with the local-address-within-network number @var{lna}. unsigned long netnum; unsigned long lnanum; - SCM_VALIDATE_INT_COPY(1,net,netnum); - SCM_VALIDATE_INT_COPY(2,lna,lnanum); + SCM_VALIDATE_INUM_COPY(1,net,netnum); + SCM_VALIDATE_INUM_COPY(2,lna,lnanum); addr = inet_makeaddr (netnum, lnanum); return scm_ulong2num (ntohl (addr.s_addr)); } @@ -475,7 +475,7 @@ as its first argument; if given no arguments, it behaves like } else { - SCM_VALIDATE_INT(1,name); + SCM_VALIDATE_INUM(1,name); entry = getservbyport (htons (SCM_INUM (name)), SCM_ROCHARS (proto)); } if (!entry) |