34/34: gnu: emacs-libgit: Fix installation failure.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit fcf45f8d756b92c5a99308d671af8992b489c4b4
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Wed May 19 00:18:40 2021 +0200

    gnu: emacs-libgit: Fix installation failure.
    
    * gnu/packages/emacs-xyz.scm (emacs-libgit)[arguments]: Adjust for renamed
    source directory.  While at it, removing trailing #t's.
---
 gnu/packages/emacs-xyz.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 9375fe7..89c2d5c 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -576,14 +576,12 @@ on stdout instead of using a socket as the Emacsclient 
does.")
                  (make-file-writable "libgit.el")
                  (emacs-substitute-variables "libgit.el"
                    ("libgit--module-file"
-                    (string-append (emacs:elpa-directory out) "/libegit2.so")))
-                 #t)))
+                    (string-append (emacs:elpa-directory out) 
"/libegit2.so"))))))
            (add-before 'install 'prepare-for-install
              (lambda _
-               (let ((s (string-append "../" ,name "-" ,version "-checkout")))
+               (let ((s "../source"))
                  (copy-file "libegit2.so" (string-append s "/libegit2.so"))
-                 (chdir s)
-                 #t)))
+                 (chdir s))))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)
                (let ((install (assoc-ref emacs:%standard-phases 'install)))