From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 30 Jan 2017 17:52:00 +0000 (-0700)
Subject: Fix infinite string input ports; add missing increment.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~16
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=847d59252b975952cc27d4c738c5da2fdf1498ff;p=mit-scheme.git

Fix infinite string input ports; add missing increment.
---

diff --git a/src/runtime/stringio.scm b/src/runtime/stringio.scm
index f32822863..7f487bab4 100644
--- 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)