amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
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 (match file
(($ <file-append> base suffix) (($ <file-append> base suffix)
(format port "#<file-append ~s ~s>" base (format port "#<file-append ~s ~s>" base
(string-join suffix))))) (string-concatenate suffix)))))
(set-record-type-printer! <file-append> write-file-append) (set-record-type-printer! <file-append> write-file-append)