From 95cacd3a10c36a20dc1f221950e96c604f427de1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 Oct 1993 04:59:00 +0000
Subject: [PATCH] Change the evaluation commands to bind the default input port
 to a dummy port that signals an error if it is read from.

---
 v7/src/edwin/evlcom.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 4cbb198d7..e79738828 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: evlcom.scm,v 1.45 1993/10/15 12:49:57 cph Exp $
+;;;	$Id: evlcom.scm,v 1.46 1993/10/21 04:59:00 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -419,7 +419,7 @@ Set by Scheme evaluation code to update the mode line."
 (define (editor-eval buffer sexp environment)
   (let ((core
 	 (lambda ()
-	   (with-input-from-string ""
+	   (with-input-from-port dummy-i/o-port
 	     (lambda ()
 	       (let ((value))
 		 (let ((output-string
-- 
2.25.1