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 b1d46627a534822505ca103d1bf872d6ad41682c..e86c99d7c4ed2ce4b5b581a7864fe30ab459a852 100644 (file)
--- 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)