diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-12-27 23:24:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-12-27 23:24:35 +0100 |
| commit | bd2fc4d81342dc15feba2998835e69dabee08864 (patch) | |
| tree | 6abf57bd114c7a4eaf5792b7378de0ff9959ff63 /guix | |
| parent | 7b21fe538512b452c87389607f569668a7f1a1a4 (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.scm | 1 | ||||
| -rw-r--r-- | 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 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) |