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(-) 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 @@ (define* (patch-makefile-SHELL file #:key (keep-mtime? #t)) ;; 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