From 1032c7b02c4ca5b5541582ea64d3417376afd868 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 17 Jul 2011 10:15:51 -0700 Subject: [PATCH] External string buffers for generic-i/o-ports fix. --- src/runtime/genio.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.25.1