environment: Deal with single-entry search paths.

This is a followup to fcd75bdbfa.

* guix/scripts/environment.scm (create-environment): Check whether
SEPARATOR is #f.
This commit is contained in:
Ludovic Courtès 2017-04-05 22:50:21 +02:00
parent 31f1f593fb
commit 50f4ea18c4
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -79,7 +79,9 @@ (define (create-environment profile paths pure?)
(let ((current (getenv variable))) (let ((current (getenv variable)))
(setenv variable (setenv variable
(if (and current (not pure?)) (if (and current (not pure?))
(string-append value separator current) (if separator
(string-append value separator current)
value)
value))))) value)))))
(evaluate-profile-search-paths profile paths)) (evaluate-profile-search-paths profile paths))