From 2e4fdfd4b50f7a84924080c8be03c46d1b91a4dd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 4 Mar 2017 00:31:51 -0800 Subject: [PATCH] Fix bug: string-padder was adding the wrong number of clusters. --- src/runtime/ustring.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1