`: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 f686da62df983b022a8e5bf1f2ffe25c01977c34..09f9eabc270d19bd7d5c303baf620a665fc6ff51 100644 (file)
--- 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)