diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-12-03 08:52:17 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-12-03 08:52:17 +0100 |
commit | 194451347dc60092132d06b84a83c5205d79299a (patch) | |
tree | 828475b685c349cdd7b74c09beb7336d38bdf6f0 /guix/build/utils.scm | |
parent | 37c6f11f8dfa1880db86a3510c9e50990304d76c (diff) | |
parent | 8cddb0d6363d13f74de5409ef29b7913228f49b9 (diff) |
Merge branch 'core-updates'
Diffstat (limited to 'guix/build/utils.scm')
-rw-r--r-- | guix/build/utils.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index c58a1afd1c..5fe3286843 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -1057,11 +1057,11 @@ with definitions for VARS." (format #f "export ~a=\"~a\"" var (string-join rest sep))) ((var sep 'prefix rest) - (format #f "export ~a=\"~a${~a~a+~a}$~a\"" - var (string-join rest sep) var sep sep var)) + (format #f "export ~a=\"~a${~a:+~a}$~a\"" + var (string-join rest sep) var sep var)) ((var sep 'suffix rest) - (format #f "export ~a=\"$~a${~a~a+~a}~a\"" - var var var sep sep (string-join rest sep))) + (format #f "export ~a=\"$~a${~a+~a}~a\"" + var var var sep (string-join rest sep))) ((var '= rest) (format #f "export ~a=\"~a\"" var (string-join rest ":"))) |