diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-12 08:07:36 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-12 08:07:36 +0000 |
commit | 2cf377147eb77a4e637e87f1433da3e34c869683 (patch) | |
tree | 2e6234506ac74afd90ccc1aa7ee98620c07f1149 /libguile/net_db.c | |
parent | 95aec69f9034b72e82cea553b255d18f7c10033f (diff) | |
download | guile-2cf377147eb77a4e637e87f1433da3e34c869683.tar.gz |
* net_db.c (s_scm_inet_makeaddr): Use SCM_NUM2ULONG since that's
the way guile-1.3.4 worked, but #if 0 out the version using
SCM_VALIDATE_INUM_COPY for stricter testing.
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r-- | libguile/net_db.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c index f8aab8528..aa9d44788 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -175,8 +175,13 @@ with the local-address-within-network number @var{lna}. unsigned long netnum; unsigned long lnanum; +#ifdef 0 /* GJB:FIXME:: */ SCM_VALIDATE_INUM_COPY (1,net,netnum); SCM_VALIDATE_INUM_COPY (2,lna,lnanum); +#else + netnum = SCM_NUM2ULONG (1, net); + lnanum = SCM_NUM2ULONG (2, lna); +#endif addr = inet_makeaddr (netnum, lnanum); return scm_ulong2num (ntohl (addr.s_addr)); } |