home: shells: Do not escape backslashes in single-quoted strings.
This is a followup to 73684dc90e.
* gnu/home/services.scm (environment-variable-shell-definitions)
[shell-single-quote]: Remove #\\ from the escape list.
			
			
This commit is contained in:
		
							parent
							
								
									80902fc210
								
							
						
					
					
						commit
						e7da6dd6d6
					
				
					 1 changed files with 2 additions and 2 deletions
				
			
		| 
						 | 
					@ -1,7 +1,7 @@
 | 
				
			||||||
;;; GNU Guix --- Functional package management for GNU
 | 
					;;; GNU Guix --- Functional package management for GNU
 | 
				
			||||||
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
 | 
					;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
 | 
				
			||||||
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
 | 
					;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
 | 
				
			||||||
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
 | 
					;;; Copyright © 2022-2023 Ludovic Courtès <ludo@gnu.org>
 | 
				
			||||||
;;;
 | 
					;;;
 | 
				
			||||||
;;; This file is part of GNU Guix.
 | 
					;;; This file is part of GNU Guix.
 | 
				
			||||||
;;;
 | 
					;;;
 | 
				
			||||||
| 
						 | 
					@ -204,7 +204,7 @@ ensures variable values are properly quoted."
 | 
				
			||||||
           (shell-single-quote
 | 
					           (shell-single-quote
 | 
				
			||||||
            (lambda (value)
 | 
					            (lambda (value)
 | 
				
			||||||
              ;; Single-quote VALUE to enter a literal string.
 | 
					              ;; Single-quote VALUE to enter a literal string.
 | 
				
			||||||
              (string-append "'" (quote-string value '(#\' #\\))
 | 
					              (string-append "'" (quote-string value '(#\'))
 | 
				
			||||||
                             "'"))))
 | 
					                             "'"))))
 | 
				
			||||||
      (string-append
 | 
					      (string-append
 | 
				
			||||||
       #$@(map (match-lambda
 | 
					       #$@(map (match-lambda
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue