diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-12 16:27:48 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-12 16:27:48 +0000 |
commit | 1ba8c23acab13fcfa090b39a9ecfe9b0c48bc867 (patch) | |
tree | 7a4e4b928d0820746d390c67d6ccd15e58caa79e | |
parent | 6f3067f1e000bbd0a5546659b5693a59125f3568 (diff) | |
download | guile-1ba8c23acab13fcfa090b39a9ecfe9b0c48bc867.tar.gz |
* socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of
UNIX_DOMAIN_SOCKETS. (Thanks to Lauri Alanko.)
-rw-r--r-- | THANKS | 1 | ||||
-rw-r--r-- | libguile/ChangeLog | 3 | ||||
-rw-r--r-- | libguile/socket.c | 8 |
3 files changed, 8 insertions, 4 deletions
@@ -6,6 +6,7 @@ The Guile core distribution: Bug reports and fixes from: + Lauri Alanko Greg Badros Aleksandar Bakic Per Bothner diff --git a/libguile/ChangeLog b/libguile/ChangeLog index f3ef66def..fb144ddb7 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,5 +1,8 @@ 1998-04-12 Mikael Djurfeldt <mdj@kenneth> + * socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of + UNIX_DOMAIN_SOCKETS. (Thanks to Lauri Alanko.) + * gc.c (scm_gc_sweep): Count cells correctly. (Thanks to Ben Caradoc-Davies.) diff --git a/libguile/socket.c b/libguile/socket.c index acb2aefc5..d1f59c122 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -57,7 +57,7 @@ #endif #include <sys/types.h> #include <sys/socket.h> -#ifdef UNIX_DOMAIN_SOCKETS +#ifdef HAVE_UNIX_DOMAIN_SOCKETS #include <sys/un.h> #endif #include <netinet/in.h> @@ -355,7 +355,7 @@ scm_fill_sockaddr (fam, address, args, which_arg, proc, size) *size = sizeof (struct sockaddr_in); return (struct sockaddr *) soka; } -#ifdef UNIX_DOMAIN_SOCKETS +#ifdef HAVE_UNIX_DOMAIN_SOCKETS case AF_UNIX: { struct sockaddr_un *soka; @@ -458,7 +458,7 @@ scm_addr_vector (address, proc) short int fam = address->sa_family; SCM result; SCM *ve; -#ifdef UNIX_DOMAIN_SOCKETS +#ifdef HAVE_UNIX_DOMAIN_SOCKETS if (fam == AF_UNIX) { struct sockaddr_un *nad = (struct sockaddr_un *) address; @@ -496,7 +496,7 @@ static void scm_init_addr_buffer () { scm_addr_buffer_size = -#ifdef UNIX_DOMAIN_SOCKETS +#ifdef HAVE_UNIX_DOMAIN_SOCKETS (int) sizeof (struct sockaddr_un) #else 0 |