Use the Edwin-private %string-append.

No need to pay the cost of wide stuff with string-append*.

(cherry picked from commit eefd86a6e67babba7d4c4eaa0fc80bd91b992f52)

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index 3eea2d925db1a4d002d7b445f801bf513338d6d6..e69def0b0121ce77209dff9180f945f5867e0336 100644 (file)
--- a/src/edwin/string.scm
+++ b/src/edwin/string.scm
@@ -589,7 +589,7 @@ USA.
 \f
 (define (decorated-string-append prefix infix suffix strings)
   (let ((infix (string-append suffix infix prefix)))
-    (string-append*
+    (%string-append
      (if (pair? strings)
         (cons* prefix
                (car strings)