From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 6 May 2017 22:31:27 +0000 (-0700)
Subject: Change parser-buffer to return immutable strings.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~70
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bdd2ff1c24fc03d253ea5fcb9764eba2a87ab26a;p=mit-scheme.git

Change parser-buffer to return immutable strings.
---

diff --git a/src/runtime/parser-buffer.scm b/src/runtime/parser-buffer.scm
index 23502368b..6566fe473 100644
--- a/src/runtime/parser-buffer.scm
+++ b/src/runtime/parser-buffer.scm
@@ -110,7 +110,7 @@ USA.
   (set-parser-buffer-line! buffer (parser-buffer-pointer-line p)))
 
 (define (get-parser-buffer-tail buffer p)
-  (call-with-parser-buffer-tail buffer p string-copy))
+  (call-with-parser-buffer-tail buffer p substring))
 
 (define (call-with-parser-buffer-tail buffer p procedure)
   ;; P must be a buffer pointer previously returned by