From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Mar 2017 04:30:55 +0000 (-0700)
Subject: Fix bug: string output port must copy input strings.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~61
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25fe238af585ae5df3d563e6aa08afd1062c9a07;p=mit-scheme.git

Fix bug: string output port must copy input strings.
---

diff --git a/src/runtime/stringio.scm b/src/runtime/stringio.scm
index 98afab45d..27d00f90d 100644
--- a/src/runtime/stringio.scm
+++ b/src/runtime/stringio.scm
@@ -208,7 +208,7 @@ USA.
 (define (string-out/write-substring port string start end)
   (let ((os (textual-port-state port))
 	(n (fix:- end start)))
-    ((ostate-builder os) (string-slice string start end))
+    ((ostate-builder os) (string-copy string start end))
     (update-column-for-substring! os string start end)
     n))