From 613e7b18630d71c07aad75cfda84031621ba236f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 19 Feb 2017 14:19:42 -0800 Subject: [PATCH] Don't throw away string-builder's state when building. --- src/runtime/ustring.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm index 9b36cef8e..d8a1a125b 100644 --- a/src/runtime/ustring.scm +++ b/src/runtime/ustring.scm @@ -242,10 +242,7 @@ USA. unspecific) (define (build) - (let ((strings (reverse! (cons (string-slice buffer 0 index) buffers)))) - (set! buffer) - (set! buffers) - (set! index) + (let ((strings (reverse (cons (string-slice buffer 0 index) buffers)))) (let ((result (do ((strings strings (cdr strings)) (n 0 (fix:+ n (string-length (car strings)))) -- 2.25.1