From 5e5deea9529c0ed2e84235d778256cccc1701df9 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 13 Dec 2014 00:04:25 +0100 Subject: utils: Use 'which' to find the shell in 'patch-makefile-SHELL'. * guix/build/utils.scm (patch-makefile-SHELL)[find-shell]: Use 'which'. --- guix/build/utils.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'guix/build/utils.scm') 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~%" -- cgit v1.2.3