summaryrefslogtreecommitdiff
path: root/gnu/home/services.scm
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2023-01-09 12:22:56 +0400
committerAndrew Tropin <andrew@trop.in>2023-01-09 12:22:56 +0400
commit35ecbb418c03e3957ebab87af921742466fe2de9 (patch)
treea8e524be0b4167b67ab539285476edbd6fd00cb1 /gnu/home/services.scm
parent2acce55a00df9344d73101bb57a3961ba86105b0 (diff)
home: environment-variables: Fix escaping.
* gnu/home/services.scm (environment-variable-shell-definitions): Fix escaping. * tests/guix-home.sh: Add STRING_WITH_ESCAPES environment variable and test its value. Reported-by: elevnkb
Diffstat (limited to 'gnu/home/services.scm')
-rw-r--r--gnu/home/services.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index c442da374c..b17a34d19d 100644
--- a/gnu/home/services.scm
+++ b/gnu/home/services.scm
@@ -192,7 +192,7 @@ ensures variable values are properly quoted."
(list->string (string-fold-right
(lambda (chr lst)
(if (memq chr quoted-chars)
- (append (list chr #\\) lst)
+ (append (list #\\ chr) lst)
(cons chr lst)))
'()
value))))