aboutsummaryrefslogtreecommitdiff
path: root/distro/packages/attr.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-05 16:02:32 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-05 16:02:32 +0100
commit7584f822bf076f4fc8aef9c1f4d48c179fe15fc3 (patch)
tree905afe27094a71e6730fc2428f213f28b4a956fd /distro/packages/attr.scm
parent312543dcfc2b19063f172bd10bb437d6bfe62cff (diff)
downloadpatches-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.scm9
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")