Change parser-buffer to return immutable strings.

diff --git a/src/runtime/parser-buffer.scm b/src/runtime/parser-buffer.scm
index 23502368bffd64d92d6dd859e945154cdd8cb5a3..6566fe47375d6242fa6f9bbd6580cbeeb12691df 100644 (file)
--- 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