From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 17 Jul 2011 17:15:51 +0000 (-0700)
Subject: External string buffers for generic-i/o-ports fix.
X-Git-Tag: mit-scheme-pucked-9.2.12~686
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1032c7b02c4ca5b5541582ea64d3417376afd868;p=mit-scheme.git

External string buffers for generic-i/o-ports fix.
---

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index 386c02db8..aabcba4d8 100644
--- a/src/runtime/genio.scm
+++ b/src/runtime/genio.scm
@@ -867,7 +867,7 @@ USA.
 	    (begin
 	      (if (fix:> bs 0)
 		  (begin
-		    (substring-move-left! bv bs be bv 0)
+		    (xsubstring-move! bv bs be bv 0)
 		    (set-input-buffer-prev! ib 0)
 		    (set-input-buffer-start! ib 0)
 		    (set-input-buffer-end! ib (fix:- be bs))))
@@ -1038,7 +1038,7 @@ USA.
 		  (fix:min bs page-size))))
 	    (if (and n (fix:> n 0))
 		(begin
-		  (substring-move-left! bv n bs bv 0)
+		  (xsubstring-move! bv n bs bv 0)
 		  (set-output-buffer-start! ob (fix:- bs n))))
 	    n))
 	0)))