diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-01-05 16:02:32 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-05 16:02:32 +0100 |
commit | 7584f822bf076f4fc8aef9c1f4d48c179fe15fc3 (patch) | |
tree | 905afe27094a71e6730fc2428f213f28b4a956fd /distro/packages/attr.scm | |
parent | 312543dcfc2b19063f172bd10bb437d6bfe62cff (diff) | |
download | patches-7584f822bf076f4fc8aef9c1f4d48c179fe15fc3.tar patches-7584f822bf076f4fc8aef9c1f4d48c179fe15fc3.tar.gz |
utils: Add `which'.
* guix/build/utils.scm (which): New procedure.
* distro/packages/lsh.scm (lsh): Use `which' instead of `search-path'.
* distro/packages/perl.scm (perl): Likewise.
* distro/packages/attr.scm (attr): Likewise.
Diffstat (limited to 'distro/packages/attr.scm')
-rw-r--r-- | distro/packages/attr.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/distro/packages/attr.scm b/distro/packages/attr.scm index ad2cd3987a..c61f4d7031 100644 --- a/distro/packages/attr.scm +++ b/distro/packages/attr.scm @@ -56,12 +56,9 @@ 'check (lambda _ ;; Use the right shell. - (let ((bash (search-path (search-path-as-string->list - (getenv "PATH")) - "bash"))) - (substitute* "test/run" - (("/bin/sh") - (string-append bash "/bin/bash")))) + (substitute* "test/run" + (("/bin/sh") + (which "bash"))) (system* "make" "tests" "-C" "test") |