From 6a45a2aac076e3b53b49932c28fbdde8c3e3de7a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 31 Aug 2025 00:27:50 +0200
Subject: [PATCH] gnu: guile-fibers: Update to 1.4.0.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/guile-xyz.scm (guile-fibers): Rename to…
(guile-fibers-1.3): … this.
(guile-fibers-1.4): New variable.
(guile-fibers): Turn into a alias for ‘guile-fibers-1.4’.
* gnu/packages/admin.scm (shepherd-0.10)[native-inputs]: Change to
‘guile-fibers-1.3’.

Change-Id: If44f7482955da08be1927ad2933487ef9bf9bbdd
---
 gnu/packages/admin.scm     |  2 +-
 gnu/packages/guile-xyz.scm | 17 +++++++++++++++--
 2 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 231a948ed0e..02b35ae48b9 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -575,7 +575,7 @@ interface and is based on GNU Guile.")
                        (if (or (target-arm?)
                                (target-riscv64?))
                            guile-fibers-1.1
-                           guile-fibers))))
+                           guile-fibers-1.3)))) ;pinned version to avoid rebuilds
     (inputs (modify-inputs (package-inputs shepherd-0.9)
               (replace "guile-fibers"
                 (this-package-native-input "guile-fibers"))))))
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 9ef4634e55e..aaa8d4638ac 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1063,7 +1063,7 @@ tables.")
                          (replace "guile-lib" guile2.2-lib)
                          (replace "guile-smc" guile2.2-smc)))))
 
-(define-public guile-fibers
+(define-public guile-fibers-1.3
   (package
     (name "guile-fibers")
     (version "1.3.1")
@@ -1141,7 +1141,20 @@ is not available for Guile 2.0.")
     (properties '((upstream-name . "fibers")))
     (license license:lgpl3+)))
 
-(define-public guile-fibers-1.3 guile-fibers)
+(define-public guile-fibers-1.4
+  (package
+    (inherit guile-fibers-1.3)
+    (name "guile-fibers")
+    (version "1.4.0")
+    (source
+     (origin (inherit (package-source guile-fibers-1.3))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1ryp04w6ghgdfhlv9hkwl00iv6nwnw2hj2pywlxvpp92pyxhkwpi"))
+              (patches '())))))
+
+(define-public guile-fibers guile-fibers-1.4)
 
 (define-public guile-fibers-1.1
   (package