From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 Mar 2017 08:31:51 +0000 (-0800)
Subject: Fix bug: string-padder was adding the wrong number of clusters.
X-Git-Tag: mit-scheme-pucked-9.2.12~196^2~17
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2e4fdfd4b50f7a84924080c8be03c46d1b91a4dd;p=mit-scheme.git

Fix bug: string-padder was adding the wrong number of clusters.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index f8a6e587d..a71dadc86 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -1330,7 +1330,7 @@ USA.
 	       (let ((builder (string-builder)))
 		 (if (eq? where 'trailing)
 		     (builder string))
-		 (do ((i 0 (fix:+ i 1)))
+		 (do ((i cluster-length (fix:+ i 1)))
 		     ((not (fix:< i n)))
 		   (builder fill-with))
 		 (if (eq? where 'leading)