From 82893676f43d32d217d264ad5bef50f0952b6460 Mon Sep 17 00:00:00 2001 From: Martin Grabmüller Date: Tue, 26 Jun 2001 17:53:09 +0000 Subject: Make compilation under Windows easier. --- libguile/socket.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'libguile/socket.c') 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 #endif #include +#ifdef HAVE_WINSOCK2_H +#include +#else #include #ifdef HAVE_UNIX_DOMAIN_SOCKETS #include @@ -70,6 +73,7 @@ #include #include #include +#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 } -- cgit v1.2.3