summaryrefslogtreecommitdiff
path: root/libguile/net_db.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-12 08:07:36 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-12 08:07:36 +0000
commit2cf377147eb77a4e637e87f1433da3e34c869683 (patch)
tree2e6234506ac74afd90ccc1aa7ee98620c07f1149 /libguile/net_db.c
parent95aec69f9034b72e82cea553b255d18f7c10033f (diff)
downloadguile-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.c5
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));
}