mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Don't build inet-aton' and inet-ntoa' when --disable-networking.

Browse source 
* libguile/deprecated.c (scm_inet_aton, scm_inet_ntoa): Conditionalize
  on `HAVE_NETWORKING'.
This commit is contained in:
Ludovic Courtès 2009-11-25 23:44:14 +01:00
parent a7348a497d
commit 1040b20531
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/deprecated.c
View file

@ -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