civodul pushed a commit to branch core-updates
in repository guix.
commit bd2fc4d81342dc15feba2998835e69dabee08864
Author: Ludovic Courtès <[email protected]>
Date: Sat Dec 27 23:24:35 2014 +0100
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.
---
guix/build/utils.scm | 1 +
guix/scripts/environment.scm | 5 ++---
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 47bcb3e..86b7ca0 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 412b8be..b3a79d9 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)
