summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index 3f7207bbc..74c743119 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -100,7 +100,11 @@
#ifndef W_EXITCODE
/* Macro for constructing a status value. Found in glibc. */
-# define W_EXITCODE(ret, sig) ((ret) << 8 | (sig))
+# ifdef _WIN32 /* see Gnulib's posix-w32.h */
+# define W_EXITCODE(ret, sig) (ret)
+# else
+# define W_EXITCODE(ret, sig) ((ret) << 8 | (sig))
+# endif
#endif
verify (WEXITSTATUS (W_EXITCODE (127, 0)) == 127);