utils: Use 'which' to find the shell in 'patch-makefile-SHELL'. * guix/build/utils.scm (patch-makefile-SHELL)[find-shell]: Use 'which'.
1 files changed, 1 insertions(+), 3 deletions(-) M guix/build/utils.scm
M guix/build/utils.scm => guix/build/utils.scm +1 -3
@@ 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~%"