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-Tag: mit-scheme-pucked-10.1.11~6^2~13
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eefd86a6e67babba7d4c4eaa0fc80bd91b992f52;p=mit-scheme.git

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 90b21b511..afb194728 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)