gnu: guile-for-guile-emacs: Update to wip-elisp-rebased.

* gnu/packages/guile.scm (guile-for-guile-emacs): Inherit from guile-next.
Update to 4b9b8277733729f5b825f78fadfead9fc3630e7e.
[version]: Update to 3.0.7-81.
[arguments, native-inputs]: Remove.

Change-Id: I78a53c2b45c4d2b87f560da82b400cbd985e332a

1 files changed, 5 insertions, 30 deletions

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 69dff9211f..d8cb4a91af 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -615,11 +615,11 @@ GNU@tie{}Guile.  Use the @code{(ice-9 readline)} module and call its
                            #:deep? #f))
 
 (define-public guile-for-guile-emacs
-  (let ((commit "15ca78482ac0dd2e3eb36dcb31765d8652d7106d")
-        (revision "1"))
-    (package (inherit guile-2.2)
+  (let ((commit "4b9b8277733729f5b825f78fadfead9fc3630e7e")
+        (revision "0"))
+    (package (inherit guile-next)
       (name "guile-for-guile-emacs")
-      (version (git-version "2.1.2" revision commit))
+      (version (git-version "3.0.7-81" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
@@ -628,32 +628,7 @@ GNU@tie{}Guile.  Use the @code{(ice-9 readline)} module and call its
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "1l7ik4q4zk7vq4m3gnwizc0b64b1mdr31hxqlzxs94xaf2lvi7s2"))))
-      (arguments
-       (substitute-keyword-arguments (package-arguments guile-2.2)
-         ((#:phases phases)
-          #~(modify-phases #$phases
-             (replace 'bootstrap
-               (lambda _
-                 ;; Disable broken tests.
-                 ;; TODO: Fix them!
-                 (substitute* "test-suite/tests/gc.test"
-                   (("\\(pass-if \"after-gc-hook gets called\"" m)
-                    (string-append "#;" m)))
-                 (substitute* "test-suite/tests/version.test"
-                   (("\\(pass-if \"version reporting works\"" m)
-                    (string-append "#;" m)))
-
-                 (patch-shebang "build-aux/git-version-gen")
-                 (invoke "sh" "autogen.sh")))))))
-      (native-inputs
-       (modify-inputs (package-native-inputs guile-2.2)
-         (prepend autoconf
-                  automake
-                  libtool
-                  flex
-                  texinfo
-                  gettext-minimal))))))
+                  "0fgkcv29581kqkxqq6y48xly72970qs7016qhs6c4ilygg0gyfqb")))))))
 
 
 ;;;