From 5555d8f2da105fefc42d6a4737d34edcfde1c030 Mon Sep 17 00:00:00 2001
From: Janneke Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 17 May 2025 08:40:09 +0200
Subject: [PATCH] gnu: guile: Fix cross-build for MinGW.

* gnu/packages/guile.scm (guile-3.0)[arguments]: When building for MinGW,
relax gcc-14's strictness.

Change-Id: Ia94511273ab618d493bab428dbf3f6098276f289
---
 gnu/packages/guile.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 06caf58212d..85035bb965a 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -391,6 +391,12 @@ without requiring the source code to be rewritten.")
                  #$@(if (target-x86-32?)
                         #~("CFLAGS=-g -O2 -fexcess-precision=standard")
                         #~())
+                 #$@(if (target-mingw?)
+                        #~(#$(string-append
+                              "CFLAGS=-g -O2"
+                              " -Wno-error=implicit-function-declaration"
+                              " -Wno-error=incompatible-pointer-types"))
+                        #~())
                  "--enable-mini-gmp"
                  '("--disable-static")))
        ((#:phases phases)