[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/02: utils: Use 'which' to find the shell in 'patch-makefile-SHELL'.

From: Ludovic Courtès
Subject: 01/02: utils: Use 'which' to find the shell in 'patch-makefile-SHELL'.
Date: Fri, 12 Dec 2014 23:06:44 +0000

civodul pushed a commit to branch core-updates
in repository guix.

commit 5e5deea9529c0ed2e84235d778256cccc1701df9
Author: Ludovic Courtès <address@hidden>
Date:   Sat Dec 13 00:04:25 2014 +0100

    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 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index de1cfce..01ac896 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 
   ;; 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~%"

reply via email to

[Prev in Thread] Current Thread [Next in Thread]