summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-12-13 00:04:25 +0100
committerLudovic Courtès <ludo@gnu.org>2014-12-13 00:04:25 +0100
commit5e5deea9529c0ed2e84235d778256cccc1701df9 (patch)
treebf13ccbf4c584da00dc5d4d06f201d127e168249 /guix/build
parent7cc7dec139d4dbbeb93d7fe57740ae5f64200701 (diff)
utils: Use 'which' to find the shell in 'patch-makefile-SHELL'.
* guix/build/utils.scm (patch-makefile-SHELL)[find-shell]: Use 'which'.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/utils.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index de1cfcea42..01ac8961d8 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -629,9 +629,7 @@ When KEEP-MTIME? is true, the atime/mtime of FILE are kept unchanged."
;; XXX: Unlike with `patch-shebang', FILE is always touched.
(define (find-shell name)
- (let ((shell
- (search-path (search-path-as-string->list (getenv "PATH"))
- name)))
+ (let ((shell (which name)))
(unless shell
(format (current-error-port)
"patch-makefile-SHELL: warning: no binary for shell `~a' found in $PATH~%"