summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-06-26 17:53:09 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-06-26 17:53:09 +0000
commit82893676f43d32d217d264ad5bef50f0952b6460 (patch)
tree5aa0b8c88d64bd0e310749a2f049ed2b4d985401 /libguile/socket.c
parentdd0e04edd65cdcb71517f1f079676cb04d3bafc4 (diff)
downloadguile-82893676f43d32d217d264ad5bef50f0952b6460.tar.gz
Make compilation under Windows easier.
Diffstat (limited to 'libguile/socket.c')
-rw-r--r--libguile/socket.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index 1eacf9fe8..82d03fbc4 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -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
}