summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-11-25 23:44:14 +0100
committerLudovic Courtès <ludo@gnu.org>2009-11-25 23:44:14 +0100
commit1040b2053150f91a8c1123dd94a51881c8b8e2f0 (patch)
tree97930f893b990801b95f2bff7184b765c6a6cb48 /libguile/deprecated.c
parenta7348a497d0dcb3cc85ac0d82b289e86f6c360cc (diff)
downloadguile-1040b2053150f91a8c1123dd94a51881c8b8e2f0.tar.gz
Don't build `inet-aton' and `inet-ntoa' when --disable-networking.
* libguile/deprecated.c (scm_inet_aton, scm_inet_ntoa): Conditionalize on `HAVE_NETWORKING'.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 30e939b44..bef3c9009 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -1465,7 +1465,9 @@ scm_i_fluidp (SCM x)
/* Networking. */
-SCM_DEFINE (scm_inet_aton, "inet-aton", 1, 0, 0,
+#ifdef HAVE_NETWORKING
+
+SCM_DEFINE (scm_inet_aton, "inet-aton", 1, 0, 0,
(SCM address),
"Convert an IPv4 Internet address from printable string\n"
"(dotted decimal notation) to an integer. E.g.,\n\n"
@@ -1482,7 +1484,7 @@ SCM_DEFINE (scm_inet_aton, "inet-aton", 1, 0, 0,
#undef FUNC_NAME
-SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0,
+SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0,
(SCM inetid),
"Convert an IPv4 Internet address to a printable\n"
"(dotted decimal notation) string. E.g.,\n\n"
@@ -1498,6 +1500,7 @@ SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0,
}
#undef FUNC_NAME
+#endif /* HAVE_NETWORKING */
void