From 29a47bbbce2c2e624cec09cbfa1ddc47dedcd7bc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 19 Jan 2004 04:30:41 +0000 Subject: [PATCH] Deal gracefully with EOF in READ-FINISH operation. --- v7/src/runtime/ttyio.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/ttyio.scm b/v7/src/runtime/ttyio.scm index 7675fe2d2..d709a8f34 100644 --- 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))))))) -- 2.25.1