~ 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