From 2cf377147eb77a4e637e87f1433da3e34c869683 Mon Sep 17 00:00:00 2001
From: "Greg J. Badros" <gjb@cs.washington.edu>
Date: Wed, 12 Jan 2000 08:07:36 +0000
Subject: [PATCH] * 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.

---
 libguile/net_db.c | 5 +++++
 1 file changed, 5 insertions(+)

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));
 }