From c96673d1986382fc9b92496fb434eaf2a97c0adb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 15 Aug 2020 08:06:48 -0600
Subject: [PATCH] Chez Scheme: repair for MinGW

---
 racket/src/ChezScheme/c/segment.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/src/ChezScheme/c/segment.h b/racket/src/ChezScheme/c/segment.h
index 6f43394c00..3012e7b06b 100644
--- a/racket/src/ChezScheme/c/segment.h
+++ b/racket/src/ChezScheme/c/segment.h
@@ -15,11 +15,11 @@
  */
 
 #ifdef WIN32
+# undef FORCEINLINE
 # ifndef __MINGW32__
-#  undef FORCEINLINE
 #  define FORCEINLINE static __forceinline
 # else
-#  define FORCEINLINE static
+#  define FORCEINLINE static __attribute__((__always_inline__)) inline
 # endif
 #else
 #define FORCEINLINE static inline