From 7584f822bf076f4fc8aef9c1f4d48c179fe15fc3 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 5 Jan 2013 16:02:32 +0100
Subject: 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.
---
 distro/packages/attr.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'distro/packages/attr.scm')

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")
 
-- 
cgit v1.2.3