From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 Oct 1993 04:59:00 +0000 (+0000)
Subject: Change the evaluation commands to bind the default input port to a
X-Git-Tag: 20090517-FFI~7719
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=95cacd3a10c36a20dc1f221950e96c604f427de1;p=mit-scheme.git

Change the evaluation commands to bind the default input port to a
dummy port that signals an error if it is read from.
---

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