From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 29 May 2019 16:13:50 +0000 (+0000)
Subject: Use the Edwin-private %string-append.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f383bd1df75bbf295c4eabc985392edda1335cd0;p=mit-scheme.git

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 3eea2d925..e69def0b0 100644
--- a/src/edwin/string.scm
+++ b/src/edwin/string.scm
@@ -589,7 +589,7 @@ USA.
 
 (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)