diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-05 22:50:21 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-05 22:50:21 +0200 |
| commit | 50f4ea18c46ea6e702dbd20841401662ba925f76 (patch) | |
| tree | 7f800c7062cb7274037f42597f87dda139c4679a /guix/scripts/environment.scm | |
| parent | 31f1f593fb835978085566e50d3d8c576d55fe99 (diff) | |
| download | patches-50f4ea18c46ea6e702dbd20841401662ba925f76.tar patches-50f4ea18c46ea6e702dbd20841401662ba925f76.tar.gz | |
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.scm | 4 |
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)) |