From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Feb 1997 06:18:45 +0000 (+0000)
Subject: Guarantee that all input ports have a READ-SUBSTRING operation.
X-Git-Tag: 20090517-FFI~5254
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4801ca6fe153d80de380c23bcec7cac272ab59b5;p=mit-scheme.git

Guarantee that all input ports have a READ-SUBSTRING operation.
Implement procedures READ-STRING! and READ-LINE.
---

diff --git a/v7/src/runtime/cpress.scm b/v7/src/runtime/cpress.scm
index b1d46627a..e86c99d7c 100644
--- a/v7/src/runtime/cpress.scm
+++ b/v7/src/runtime/cpress.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cpress.scm,v 1.8 1997/02/21 06:12:33 cph Exp $
+$Id: cpress.scm,v 1.9 1997/02/21 06:18:45 cph Exp $
 
 Copyright (c) 1992-97 Massachusetts Institute of Technology
 
@@ -513,7 +513,8 @@ MIT in each case. |#
 	;; couldn't be sure that any nodes we were holding were valid
 	;; across a call to READ-BYTE.
 	(let ((nb
-	       (input-port/read-substring input-port (bb-vector bb) end end*)))
+	       (input-port/read-substring! input-port
+					   (bb-vector bb) end end*)))
 	  (cond ((not nb)
 		 (error "Input port must be in blocking mode:" input-port)
 		 false)