Use the Edwin-private %string-append.

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

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index 90b21b5116a9a4d63f7891d39416e50432c203f4..afb194728df45ea77d0b654add81eefedb4819e3 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)