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

Make compilation under Windows easier.

Browse source
This commit is contained in:
Martin Grabmüller 2001-06-26 17:53:09 +00:00
parent dd0e04edd6
commit 82893676f4
22 changed files with 315 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/socket.c
View file

@ -63,6 +63,9 @@
#include <unistd.h>
#endif
#include <sys/types.h>
#ifdef HAVE_WINSOCK2_H
#include <winsock2.h>
#else
#include <sys/socket.h>
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
#include <sys/un.h>
@ -70,6 +73,7 @@
#include <netinet/in.h>
#include <netdb.h>
#include <arpa/inet.h>
#endif
#if defined (HAVE_UNIX_DOMAIN_SOCKETS) && !defined (SUN_LEN)
#define SUN_LEN(ptr) ((size_t) (((struct sockaddr_un *) 0)->sun_path) \
@ -523,7 +527,7 @@ SCM_DEFINE (scm_getsockopt, "getsockopt", 3, 0, 0,
return scm_cons (scm_long2num (ling->l_onoff),
scm_long2num (ling->l_linger));
#else
return scm_cons (scm_long2num (*(int *) optval)
return scm_cons (scm_long2num (*(int *) optval),
SCM_MAKINUM (0));
#endif
}