From 7972787723d08a491379b63e6e5dc1cc6a3fac87 Mon Sep 17 00:00:00 2001
From: Christopher Lemmer Webber <cwebber@dustycloud.org>
Date: Tue, 25 Aug 2020 11:46:59 -0400
Subject: [PATCH] Update for guile-3.0

* configure.ac: Update for guile-3.0.
* guix.scm: Likewise.
---
 configure.ac |  2 +-
 guix.scm     | 37 +++----------------------------------
 2 files changed, 4 insertions(+), 35 deletions(-)

diff --git a/configure.ac b/configure.ac
index 004fec1..4d21e00 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,6 +1,6 @@
 AC_INIT([8sync], [0.4.2], [cwebber@dustycloud.org])
 
-PKG_CHECK_MODULES([GUILE], [guile-2.2])
+PKG_CHECK_MODULES([GUILE], [guile-3.0])
 
 AM_INIT_AUTOMAKE([-Wall -Werror foreign])
 
diff --git a/guix.scm b/guix.scm
index 49f91c1..81b348a 100644
--- a/guix.scm
+++ b/guix.scm
@@ -51,43 +51,12 @@
              (gnu packages autotools)
              (gnu packages gettext)
              (gnu packages guile)
+             (gnu packages guile-xyz)
              (gnu packages pkg-config)
              (gnu packages texinfo))
 
 (define %source-dir (dirname (current-filename)))
 
-(define guile-fibers-git
-  (package
-    (inherit guile-fibers)
-    (name "guile-fibers")
-    (version "git")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://github.com/wingo/fibers.git")
-                    (commit "0fa1fd6adf9980229a46956503a6bf36e8154a78")))
-              (sha256
-               (base32
-                "0a782aa0v2d115427h1h57jkxy04axklan60dzgnsry4axw9iq8r"))))
-    (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (add-before 'configure 'bootstrap
-                    (lambda _
-                      (zero? (system* "./autogen.sh"))))
-                  (add-before 'configure 'setenv
-                    (lambda _
-                      (setenv "GUILE_AUTO_COMPILE" "0"))))
-       ;; We wouldn't want this in the upstream fibers package, but gosh
-       ;; running tests takes forever and is painful
-       #:tests? #f))
-    (native-inputs
-     `(("autoconf" ,autoconf)
-       ("automake" ,automake)
-       ("libtool" ,libtool)
-       ("texinfo" ,texinfo)
-       ("gettext" ,gettext-minimal)
-       ,@(package-native-inputs guile-2.2)))))
-
 (package
   (name "guile-8sync")
   (version "git")
@@ -97,10 +66,10 @@
   (build-system gnu-build-system)
   (native-inputs `(("autoconf" ,autoconf)
                    ("automake" ,automake)
-                   ("guile" ,guile-2.2)
+                   ("guile" ,guile-3.0)
                    ("pkg-config" ,pkg-config)
                    ("texinfo" ,texinfo)))
-  (propagated-inputs `(("guile-fibers" ,guile-fibers-git)))
+  (propagated-inputs `(("guile-fibers" ,guile-fibers)))
   (arguments
    `(#:phases (modify-phases %standard-phases
                 (add-before 'configure 'bootstrap
-- 
2.31.1