From 4801ca6fe153d80de380c23bcec7cac272ab59b5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Feb 1997 06:18:45 +0000
Subject: [PATCH] Guarantee that all input ports have a READ-SUBSTRING
 operation. Implement procedures READ-STRING! and READ-LINE.

---
 v7/src/runtime/cpress.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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