summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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~%"