[gnunet-scheme] 199/324: guix: Use patched version of guile-fibers.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit bebf22a2c13a1a06fcf068b37e50e108bef9a1c9
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Aug 26 19:10:55 2021 +0200

    guix: Use patched version of guile-fibers.
    
    * guix.scm (guile-fibers/patched): Use a variant of guile-fibers that
      has wait-for-port-readable-operation.
---
 guix.scm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/guix.scm b/guix.scm
index 7cd6201..0685d8d 100644
--- a/guix.scm
+++ b/guix.scm
@@ -27,6 +27,7 @@
             (gnu packages pkg-config)
             (guix packages)
             (guix gexp)
+            (guix git-download)
             (guix download)
             (guix build-system gnu)
             ((guix licenses) #:prefix license:))
@@ -67,6 +68,24 @@ random inputs and seeing if it holds.")
        (patches (list (local-file 
"0001-Fix-non-revealed-port-is-closed-ports.test.patch")
                      (local-file "0001-ice-9-read-Parse-properly.patch")))))))
 
+;; This has some I/O patches (wait-for-port-readable-operation).
+(define-public guile-fibers/patched
+  (package
+   (inherit guile-fibers)
+   (source (origin
+            (method git-fetch)
+            (uri (git-reference
+                  (url "https://notabug.org/maximed/fibers";)
+                  (commit "3836b288eedfdb5064fdc84643f1e15a00071dbe")))
+            (sha256
+             (base32 "08rkmz1nkjk1l0bydic4vj5h7vd43l2sqskm14lcfz8pfkks7sx8"))))
+   (native-inputs
+    `(("autoconf" ,autoconf)
+      ("gettext" ,gettext-minimal)
+      ("libtool" ,libtool)
+      ("automake" ,automake)
+      ,@(package-native-inputs guile-fibers)))))
+
 (define-public scheme-gnunet
   (package
    (name "scheme-gnunet")
@@ -75,7 +94,7 @@ random inputs and seeing if it holds.")
    (build-system gnu-build-system)
    (propagated-inputs `(("guile-zlib" ,guile-zlib)
                        ("guile-bytestructures" ,guile-bytestructures)
-                       ("guile-fibers" ,guile-fibers)
+                       ("guile-fibers" ,guile-fibers/patched)
                        ("guile-json" ,guile-json-4)
                        ("guile-pfds" ,guile-pfds)))
    (native-inputs `(("guile" ,guile-3.0/fixed)

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.