summaryrefslogtreecommitdiff
path: root/guix/scripts/environment.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-04-05 22:50:21 +0200
committerLudovic Courtès <ludo@gnu.org>2017-04-05 22:50:21 +0200
commit50f4ea18c46ea6e702dbd20841401662ba925f76 (patch)
tree7f800c7062cb7274037f42597f87dda139c4679a /guix/scripts/environment.scm
parent31f1f593fb835978085566e50d3d8c576d55fe99 (diff)
environment: Deal with single-entry search paths.
This is a followup to fcd75bdbfa99d14363b905afbf914eec20e69df8. * guix/scripts/environment.scm (create-environment): Check whether SEPARATOR is #f.
Diffstat (limited to 'guix/scripts/environment.scm')
-rw-r--r--guix/scripts/environment.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 44f490043c..5a6abd00fb 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -79,7 +79,9 @@ existing enviroment variables with additional search paths."
(let ((current (getenv variable)))
(setenv variable
(if (and current (not pure?))
- (string-append value separator current)
+ (if separator
+ (string-append value separator current)
+ value)
value)))))
(evaluate-profile-search-paths profile paths))