tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gexp: Adjust <file-append>'s string representation.

Browse Source 
gexp-compiler concatenates suffixes, but when writing the record same
suffixes are joined which produces odd-looking result:
(file-append 'file "/" "abc") => #<file-append file "/ abc">

* guix/gexp.scm (write-file-append): Concatenate suffixes without
spaces.

Change-Id: Iaa986c759f5ade84ff077c90440ff5138eebe900
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Sergey Trofimov
2025-06-18 15:54:19 +02:00
committed by Ludovic Courtès
parent 6fd46129fe
commit 5007e5ab3f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
guix/gexp.scm
View File

@@ -689,7 +689,7 @@ This is the declarative counterpart of 'gexp->file'."
(match file
(($ <file-append> base suffix)
(format port "#<file-append ~s ~s>" base
(string-join suffix)))))
(string-concatenate suffix)))))
(set-record-type-printer! <file-append> write-file-append)