~ruther/guix-local

bd2fc4d81342dc15feba2998835e69dabee08864 — Ludovic Courtès 11 years ago 7b21fe5
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.
2 files changed, 3 insertions(+), 3 deletions(-)

M guix/build/utils.scm
M guix/scripts/environment.scm
M guix/build/utils.scm => guix/build/utils.scm +1 -0
@@ 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

M guix/scripts/environment.scm => guix/scripts/environment.scm +2 -3
@@ 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)