From 535efb3c9add7e32530aa0dced40b18b12b8ed95 Mon Sep 17 00:00:00 2001
From: Morgan Smith <Morgan.J.Smith@outlook.com>
Date: Tue, 4 Mar 2025 21:09:30 -0500
Subject: [PATCH] gnu: guile-for-guile-emacs: Fix build.

Got broken in commit 98f894e05fdbc6bc90887820b0abc2a443a8b676 which updated
guile-next and removed a no longer needed phase.  This package still needed
that phase though.

* gnu/packages/guile.scm (guile-for-guile-emacs)[arguments]: Add phase to
disable a failing test.

Change-Id: Ia45e33f65187e3fdb02dc6a9560d04479e32a017
Signed-off-by: Zheng Junjie <z572@z572.online>
---
 gnu/packages/guile.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index f48ce1ca84c3a412a22aee2310d038d60b0add26..7e1f9a7c1c622f563b3985f67662a51b5e62e7bb 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -625,7 +625,14 @@ GNU@tie{}Guile.  Use the @code{(ice-9 readline)} module and call its
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "0fgkcv29581kqkxqq6y48xly72970qs7016qhs6c4ilygg0gyfqb")))))))
+                  "0fgkcv29581kqkxqq6y48xly72970qs7016qhs6c4ilygg0gyfqb"))))
+      (arguments
+       (substitute-keyword-arguments (package-arguments guile-next)
+         ((#:phases phases '%standard-phases)
+          #~(modify-phases #$phases
+              (add-before 'check 'skip-failing-tests
+                (lambda _
+                  (delete-file "test-suite/tests/version.test"))))))))))
 
 
 ;;;