~ chicken-core (chicken-5) fe7e02b36e312505cf15c7e486fbc9a95aa55fb5


commit fe7e02b36e312505cf15c7e486fbc9a95aa55fb5
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:35:27 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 701881db..b504883e 100644
--- a/chicken.h
+++ b/chicken.h
@@ -954,7 +954,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