diff options
author | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-06-26 17:53:09 +0000 |
---|---|---|
committer | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-06-26 17:53:09 +0000 |
commit | 82893676f43d32d217d264ad5bef50f0952b6460 (patch) | |
tree | 5aa0b8c88d64bd0e310749a2f049ed2b4d985401 /libguile/socket.c | |
parent | dd0e04edd65cdcb71517f1f079676cb04d3bafc4 (diff) | |
download | guile-82893676f43d32d217d264ad5bef50f0952b6460.tar.gz |
Make compilation under Windows easier.
Diffstat (limited to 'libguile/socket.c')
-rw-r--r-- | libguile/socket.c | 6 |
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 } |