~ruther/guix-local

5e5deea9529c0ed2e84235d778256cccc1701df9 — Ludovic Courtès 11 years ago 7cc7dec
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~%"