From 139d65a430bc6f9bac0ccd21179099259406bde0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Nov 1990 15:14:53 +0000
Subject: [PATCH] Generate meaningful error if EOF encountered in keyboard
 input port.

---
 v7/src/edwin/input.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/input.scm b/v7/src/edwin/input.scm
index 23f1a4945..8146f5689 100644
--- a/v7/src/edwin/input.scm
+++ b/v7/src/edwin/input.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/input.scm,v 1.85 1990/10/06 00:16:04 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/input.scm,v 1.86 1990/11/14 15:14:53 cph Rel $
 ;;;
 ;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -225,4 +225,7 @@ B 3BAB8C
 	       (set! command-prompt-displayed? true)
 	       (set-current-message! command-prompt-string))
 	     (clear-current-message!))))
-  (remap-alias-char (read-char (editor-input-port current-editor))))
\ No newline at end of file
+  (let ((char (read-char (editor-input-port current-editor))))
+    (if (not (char? char))
+	(error "reached EOF in keyboard input port"))
+    (remap-alias-char char)))
\ No newline at end of file
-- 
2.25.1