~ 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