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

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index 386c02db8808d42d278aae9e1c294b14ea759c7a..aabcba4d8d8c8e8a6d0ba4ddc5b642aac209ee4f 100644 (file)
--- 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)))