From 847d59252b975952cc27d4c738c5da2fdf1498ff Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 30 Jan 2017 10:52:00 -0700
Subject: [PATCH] Fix infinite string input ports; add missing increment.

---
 src/runtime/stringio.scm | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
2.25.1