me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Pierre Neidhardt 2021-01-20 20:37:57 +01:00
parent 2ec30608b2
commit 683154166d
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gnu/packages/lisp.scm
View File

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