From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 10:54:09 +0000 (-0800)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~53
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f8b8ef858f5ef5597a42fd4d6ff3650bd66a8487;p=mit-scheme.git

Fix typo.
---

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index 442474c74..dbe385ed6 100644
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -522,7 +522,7 @@ USA.
 	(string-set! string i char)))))
 
 (define (decorated-string-append prefix infix suffix strings)
-  ((string-joiner* prefix infix suffix) strings))
+  ((string-joiner* infix prefix suffix) strings))
 
 (define (string-joiner infix #!optional prefix suffix)
   (let ((joiner (string-joiner* prefix infix suffix)))