Fix infinite string input ports; add missing increment.

diff --git a/src/runtime/stringio.scm b/src/runtime/stringio.scm
index f328228632b7d538600080601f9bc2aa0f156ef1..7f487bab46627a3cc52e0a3594e04733bdb81e43 100644 (file)
--- a/src/runtime/stringio.scm
+++ b/src/runtime/stringio.scm
@@ -89,6 +89,7 @@ USA.
          (end* (istate-end ss)))
       (let ((n (fix:min (fix:- end start) (fix:- end* start*))))
        (ustring-copy! string* start* string start (fix:+ start n))
+       (set-istate-next! ss (fix:+ start* n))
        n))))
 
 (define (string-in/unread-char port char)