From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 9 May 2009 21:06:41 +0000 (-0700)
Subject: Fix bug: read-substring wasn't updating the buffer position.
X-Git-Tag: 20090517-FFI~11
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b97ff8623d619fcc26823a673d99be65a320be60;p=mit-scheme.git

Fix bug: read-substring wasn't updating the buffer position.
---

diff --git a/v7/src/runtime/stringio.scm b/v7/src/runtime/stringio.scm
index 000ef8648..0d7bd5cd1 100644
--- a/v7/src/runtime/stringio.scm
+++ b/v7/src/runtime/stringio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: stringio.scm,v 14.6 2009/02/04 16:00:45 savannah-arthur Exp $
+$Id: stringio.scm,v 14.7 2009/05/06 08:35:46 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -111,8 +111,11 @@ USA.
 
 (define (internal-in/read-substring port string start end)
   (let ((ss (port/state port)))
-    (move-chars! (iistate-string ss) (iistate-next ss) (iistate-end ss)
-		 string start end)))
+    (let ((n
+	   (move-chars! (iistate-string ss) (iistate-next ss) (iistate-end ss)
+			string start end)))
+      (set-iistate-next! ss (fix:+ (iistate-next ss) n))
+      n)))
 
 (define (make-narrow-input-type)
   (make-string-in-type narrow-in/peek-char