From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Jun 1987 22:43:55 +0000 (+0000)
Subject: `:read-string' operation for string input ports must move the position
X-Git-Tag: 20090517-FFI~13364
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7acf95c2c0d85c71f7fc3274bd8ce9883b6794b6;p=mit-scheme.git

`:read-string' operation for string input ports must move the position
index when it encounters end of string.
---

diff --git a/v7/src/runtime/input.scm b/v7/src/runtime/input.scm
index f686da62d..09f9eabc2 100644
--- a/v7/src/runtime/input.scm
+++ b/v7/src/runtime/input.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.44 1987/06/15 18:09:02 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.45 1987/06/16 22:43:55 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -380,10 +380,9 @@
 (define (:read-string delimiters)
   (and (< start end)
        (let ((index
-	      (substring-find-next-char-in-set string start end delimiters)))
-	 (if index
-	     (substring string (set! start index) index)
-	     (substring string start end)))))
+	      (or (substring-find-next-char-in-set string start end delimiters)
+		  end)))
+	 (substring string (set! start index) index))))
 
 (define (:discard-chars delimiters)
   (if (< start end)