summary refs log tree commit diff
diff options
context:
space:
mode:
authorPierre Neidhardt <mail@ambrevar.xyz>2021-01-20 20:37:57 +0100
committerPierre Neidhardt <mail@ambrevar.xyz>2021-01-20 20:39:36 +0100
commit683154166d51c26c8f7248d2a0f2b37cf84d343a (patch)
tree5144a49e5378c711b8dd896ba3ef312f50ce6101
parent2ec30608b2b9ffc0ca4d33c231052e0d73899837 (diff)
downloadguix-683154166d51c26c8f7248d2a0f2b37cf84d343a.tar.gz
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.
-rw-r--r--gnu/packages/lisp.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index bdf9ac9d58..3c09b0af8a 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))))))))