~ chicken-core (chicken-5) dec1b2ee2556e4a53a2f34d8aca8ed76b6e99e9c
commit dec1b2ee2556e4a53a2f34d8aca8ed76b6e99e9c
Author: Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Tue Dec 10 23:16:58 2013 +0100
Commit: Peter Bex <peter.bex@xs4all.nl>
CommitDate: Tue Dec 10 23:20:38 2013 +0100
Fix test compilation error on Windows
diff --git a/tests/srfi-18-signal-test.scm b/tests/srfi-18-signal-test.scm
index a710192e..c1a47924 100644
--- a/tests/srfi-18-signal-test.scm
+++ b/tests/srfi-18-signal-test.scm
@@ -25,10 +25,12 @@
;; so let the OS deliver it to us when we're ready:
(foreign-declare "#include <sys/time.h>")
((foreign-lambda* void ()
+ "#ifndef __MINGW32__ \n"
"struct itimerval timer;"
"timer.it_value.tv_sec = 1;"
"timer.it_value.tv_usec = 0;"
- "setitimer(ITIMER_REAL, &timer, NULL);"))
+ "setitimer(ITIMER_REAL, &timer, NULL);\n"
+ "#endif"))
(display "Testing correct handling of thread-join! with external signals:")
(flush-output)
Trap