diff options
| author | Andrew Tropin <andrew@trop.in> | 2023-01-09 12:22:56 +0400 |
|---|---|---|
| committer | Andrew Tropin <andrew@trop.in> | 2023-01-09 12:22:56 +0400 |
| commit | 35ecbb418c03e3957ebab87af921742466fe2de9 (patch) | |
| tree | a8e524be0b4167b67ab539285476edbd6fd00cb1 /gnu/home/services.scm | |
| parent | 2acce55a00df9344d73101bb57a3961ba86105b0 (diff) | |
| download | guix-35ecbb418c03e3957ebab87af921742466fe2de9.tar guix-35ecbb418c03e3957ebab87af921742466fe2de9.tar.gz | |
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.scm | 2 |
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)))) |