From 5007e5ab3f7bf23c416d907cd685f63e454a020f Mon Sep 17 00:00:00 2001
From: Sergey Trofimov <sarg@sarg.org.ru>
Date: Wed, 18 Jun 2025 15:54:19 +0200
Subject: [PATCH] gexp: Adjust <file-append>'s string representation.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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>
---
 guix/gexp.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/gexp.scm b/guix/gexp.scm
index cf94d9d5f4..0dcb4b2c80 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -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)