From ecc34394f38bda3f4aa73b7162b07e3d35fa97aa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 3 Sep 2025 11:57:57 +0200
Subject: [PATCH] gnu: guile-fibers@1.4: Fix cross-compilation.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/guile-xyz.scm (guile-fibers-1.4)[arguments]: Add
‘fix-cross-compilation’ phase.

Change-Id: I615800f2f0021cc86f7e6e002e3871b5986eee24
---
 gnu/packages/guile-xyz.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 748338e2e55..683d17ce412 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1156,7 +1156,18 @@ is not available for Guile 2.0.")
               (base32
                "1ryp04w6ghgdfhlv9hkwl00iv6nwnw2hj2pywlxvpp92pyxhkwpi"))
              (patches '())))
-    (arguments '())))
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'configure 'fix-cross-compilation
+                 (lambda _
+                   ;; Fix cross-compilation by removing use of ./env in the
+                   ;; .scm.go target; see
+                   ;; <https://codeberg.org/fibers/fibers/pulls/132>.  Remove
+                   ;; when 1.4.1 is out.
+                   (substitute* "Makefile"
+                     (("\\$\\(top_builddir\\)/env")
+                      "")))))))))
 
 (define-public guile-fibers guile-fibers-1.4)