gnu: guile-fibers: Update to 1.4.0.

* 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

@@ -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"))))))

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