guile-pstk

commit 4a7a142df3b0d290c2e257eff8aedc56512cdef4
parent 5ab87a9b423cc021a3a0d7666ff91cd8ef63de77
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sat, 22 Jun 2024 09:43:56 +0300

Use `string-concatenate` instead of `apply string-append`.

Diffstat:
M
pstk.scm
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pstk.scm b/pstk.scm
@@ -616,9 +616,9 @@
         (else (string-append " " (form->string x)))))
 
 (define (scheme-arglist->tk-argstring args)
-  (apply string-append
-         (map scheme-arg->tk-arg
-              args)))
+  (string-concatenate
+   (map scheme-arg->tk-arg
+        args)))
 
 (define (make-wish-func tkname)
   (let ((name (form->string tkname)))