diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-12-13 00:04:25 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-12-13 00:04:25 +0100 |
| commit | 5e5deea9529c0ed2e84235d778256cccc1701df9 (patch) | |
| tree | bf13ccbf4c584da00dc5d4d06f201d127e168249 | |
| parent | 7cc7dec139d4dbbeb93d7fe57740ae5f64200701 (diff) | |
| download | gnu-guix-5e5deea9529c0ed2e84235d778256cccc1701df9.tar gnu-guix-5e5deea9529c0ed2e84235d778256cccc1701df9.tar.gz | |
utils: Use 'which' to find the shell in 'patch-makefile-SHELL'.
* guix/build/utils.scm (patch-makefile-SHELL)[find-shell]: Use 'which'.
| -rw-r--r-- | guix/build/utils.scm | 4 |
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~%" |