~ chicken-core (chicken-5) 2068b7ba7179db9d660993727ad12bff1177b71f
commit 2068b7ba7179db9d660993727ad12bff1177b71f
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Nov 8 16:14:54 2015 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 8 16:14:54 2015 +0100
Disable getc_unlocked on MinGW
(by Evhan Hanson) The platform doesn't provide this function.
Thanks to Matt Gushee for raising this.
Signed-off-by: felix <felix@call-with-current-continuation.org>
diff --git a/chicken.h b/chicken.h
index d50d291a..f51d5dc4 100644
--- a/chicken.h
+++ b/chicken.h
@@ -909,7 +909,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
# define C_fputs fputs
# define C_fputc fputc
# define C_putchar putchar
-# if (defined getc_unlocked || _POSIX_C_SOURCE >= 199506L)
+# if (defined getc_unlocked || _POSIX_C_SOURCE >= 199506L) && !defined(__MINGW32__)
# define C_getc getc_unlocked
# else
# define C_getc getc
Trap