From 31244f5cefae4c14a1a5d441dc3b3626b5f32abc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 19 Jul 2024 22:22:30 +0200
Subject: [PATCH] Revert "gnu: guile: Update to 3.0.10."
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This reverts commit e31299010f6b8ccb3ccd1cc34a0d03483387ea36
and 24163eea584663568b68e19f364256fc7396b61f.

The upgrade causes build failures, as noticeably by running ‘guix pull’,
that are being investigated at <https://issues.guix.gnu.org/72183>.

Change-Id: I946b43d938666d9dcddf1e5d856b02462bd8e453
---
 gnu/packages/guile-xyz.scm |  2 +-
 gnu/packages/guile.scm     | 14 ++------------
 2 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 8ad790aa06..3ce4f6a8d6 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -3537,7 +3537,7 @@ (define-public guile-hoot
     (native-inputs
      (list autoconf automake pkg-config texinfo))
     (inputs
-     (list guile-3.0-latest))
+     (list guile-next))
     (synopsis "WebAssembly compiler backend for Guile")
     (description "Guile Hoot is a WebAssembly compiler backend for GNU Guile
 and standalone WASM toolchain.")
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 077b7b7d37..e8705dc7d2 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -322,6 +322,7 @@ (define-public guile-2.2.4
                "07p3g0v2ba2vlfbfidqzlgbhnzdx46wh2rgc5gszq1mjyx5bks6r"))))))
 
 (define-public guile-3.0
+  ;; This is the latest Guile stable version.
   (package
     (inherit guile-2.2)
     (name "guile")
@@ -437,18 +438,7 @@ (define patch
             (files '("lib/guile/3.0/site-ccache"
                      "share/guile/site/3.0")))))))
 
-(define-public guile-3.0-latest
-  ;; This is the latest Guile stable version.
-  (package
-    (inherit guile-3.0)
-    (version "3.0.10")
-    (source (origin
-              (inherit (package-source guile-3.0))
-              (uri (string-append "mirror://gnu/guile/guile-"
-                                  version ".tar.xz"))
-              (sha256
-               (base32
-                "1233wzcbiqhp5qr3ggag14s5d4i7cn0spxyl8qs369nmgx8nhwdx"))))))
+(define-public guile-3.0-latest guile-3.0)
 
 ;;; The symbol guile-3.0/fixed should be used when guile-3.0 needs fixes
 ;;; (security or else) and this deprecation could be removed.