From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 2017 01:14:39 +0000 (-0700)
Subject: Fix call to string-builder that was missed.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~13
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5291d51b50cfd6fbad0b93ee04ce0ee45a9d3826;p=mit-scheme.git

Fix call to string-builder that was missed.
---

diff --git a/tests/runtime/test-string.scm b/tests/runtime/test-string.scm
index d6275af3d..44f37966a 100644
--- a/tests/runtime/test-string.scm
+++ b/tests/runtime/test-string.scm
@@ -175,7 +175,7 @@ USA.
      'expression string)))
 
 (define (convert-break-test-case test-case)
-  (let ((builder (string-builder 'normalization 'none)))
+  (let ((builder (string-builder)))
     (let loop ((test-case test-case) (index 0) (breaks '()))
       (let ((breaks
 	     (if (car test-case)
@@ -185,7 +185,7 @@ USA.
 	    (begin
 	      (builder (cadr test-case))
 	      (loop (cddr test-case) (fix:+ index 1) breaks))
-	    (values (builder)
+	    (values (builder 'immutable)
 		    (reverse! breaks)))))))
 
 (define-test 'grapheme-cluster-breaks