summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-12-27 23:24:35 +0100
committerLudovic Courtès <ludo@gnu.org>2014-12-27 23:24:35 +0100
commitbd2fc4d81342dc15feba2998835e69dabee08864 (patch)
tree6abf57bd114c7a4eaf5792b7378de0ff9959ff63 /guix
parent7b21fe538512b452c87389607f569668a7f1a1a4 (diff)
utils: Export 'search-path-as-list'.
* guix/build/utils.scm (search-path-as-list): Make public. * guix/scripts/environment.scm (for-each-search-path): Use it.
Diffstat (limited to 'guix')
-rw-r--r--guix/build/utils.scm1
-rw-r--r--guix/scripts/environment.scm5
2 files changed, 3 insertions, 3 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 47bcb3e8a1..86b7ca0155 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -45,6 +45,7 @@
delete-file-recursively
find-files
+ search-path-as-list
set-path-environment-variable
search-path-as-string->list
list->search-path-as-string
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 412b8be658..b3a79d9251 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -45,9 +45,8 @@ path value is appended."
(($ <search-path-specification>
variable directories separator)
(let* ((current (getenv variable))
- (path ((@@ (guix build utils) search-path-as-list)
- directories paths))
- (value (list->search-path-as-string path separator)))
+ (path (search-path-as-list directories paths))
+ (value (list->search-path-as-string path separator)))
(proc variable
(if (and current (not pure?))
(string-append value separator current)