From d2aca35ca4f1eb8846fbeeb7010285d8a5d2c4d3 Mon Sep 17 00:00:00 2001
From: Arun Isaac <arunisaac@systemreboot.net>
Date: Fri, 14 Mar 2025 17:31:11 +0000
Subject: [PATCH] Revert "gnu: Remove guile-for-guile-emacs."

This reverts commit df959e33ae960729a4730017e89091daf285ec9a.
---
 gnu/packages/guile.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index a3e91ba820..7e1f9a7c1c 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -611,6 +611,29 @@ GNU@tie{}Guile.  Use the @code{(ice-9 readline)} module and call its
                            (guile-variant-package-name "guile2.2")
                            #:deep? #f))
 
+(define-public guile-for-guile-emacs
+  (let ((commit "4b9b8277733729f5b825f78fadfead9fc3630e7e")
+        (revision "0"))
+    (package (inherit guile-next)
+      (name "guile-for-guile-emacs")
+      (version (git-version "3.0.7-81" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "git://git.savannah.gnu.org/guile.git")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "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"))))))))))
+
 
 ;;;
 ;;; Extensions.