branch master updated: gnu: lisp-repl-core-dumper: Patch path to `cat'.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ambrevar pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 6831541  gnu: lisp-repl-core-dumper: Patch path to `cat'.
6831541 is described below

commit 683154166d51c26c8f7248d2a0f2b37cf84d343a
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Wed Jan 20 20:37:57 2021 +0100

    gnu: lisp-repl-core-dumper: Patch path to `cat'.
    
    * gnu/packages/lisp.scm (lisp-repl-core-dumper)[arguments]: Substitute calls
    to `cat' with full store path.
---
 gnu/packages/lisp.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index bdf9ac9..3c09b0a 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -1103,12 +1103,14 @@ assembler, PEG) is less than 1MB.")
          (add-before 'install 'fix-utils-path
            (lambda* (#:key inputs #:allow-other-keys)
              (let* ((coreutils (string-append (assoc-ref inputs "coreutils") 
"/bin/"))
+                    (cat (string-append coreutils "cat"))
                     (paste (string-append coreutils "paste"))
                     (sort (string-append coreutils "sort"))
                     (basename (string-append coreutils "basename"))
                     (sed (string-append (assoc-ref inputs "sed") "/bin/sed")))
                (substitute* "lisp-repl-core-dumper"
                  (("\\$\\(basename") (string-append "$(" basename))
+                 (("\\<cat\\>") cat)
                  (("\\<paste\\>") paste)
                  (("\\<sed\\>") sed)
                  (("\\<sort\\>") sort))))))))