Deal gracefully with EOF in READ-FINISH operation.

diff --git a/v7/src/runtime/ttyio.scm b/v7/src/runtime/ttyio.scm
index 7675fe2d25b573a064fcf449c4a8f3fc06d1b398..d709a8f3491e58f7273217bd7db046774aa2315f 100644 (file)
--- a/v7/src/runtime/ttyio.scm
+++ b/v7/src/runtime/ttyio.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: ttyio.scm,v 1.15 2003/03/21 17:51:19 cph Exp $
+$Id: ttyio.scm,v 1.16 2004/01/19 04:30:41 cph Exp $
 
-Copyright 1991,1993,1996,1999,2003 Massachusetts Institute of Technology
+Copyright 1991,1993,1996,1999,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -149,7 +149,8 @@ USA.
     (let loop ()
       (if (input-buffer/char-ready? buffer 0)
          (let ((char (input-buffer/peek-char buffer)))
-           (if (char-whitespace? char)
+           (if (and (not (eof-object? char))
+                    (char-whitespace? char))
                (begin
                  (operation/read-char port)
                  (loop)))))))