From 3ddd8726a5bc8bf4a666f1d8340d4718f47db0d0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 20 Jun 1990 23:02:09 +0000
Subject: [PATCH] Changes to match runtime system 14.82.

---
 v7/src/edwin/debuge.scm |  8 +++++---
 v7/src/edwin/editor.scm | 27 +++++++++++++++++----------
 v7/src/edwin/make.scm   |  6 +++---
 3 files changed, 25 insertions(+), 16 deletions(-)

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index 80726e1ab..391d8dafc 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.38 1989/08/11 11:50:23 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.39 1990/06/20 23:02:09 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -62,7 +62,9 @@
 			   (begin
 			     (newline)
 			     (write-string "Filename: ")
-			     (->pathname (read)))))
+			     (->pathname
+			      (input-port/normal-mode (current-input-port)
+						      read)))))
 		     ((integer? (pathname-version pathname))
 		      (pathname-new-version pathname 'NEWEST))
 		     (else
diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index b5cc277c8..a85dcd49e 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.192 1989/08/12 08:31:48 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.193 1990/06/20 23:01:51 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -64,14 +64,21 @@
 		       (dynamic-wind
 			(lambda () (update-screens! true))
 			(lambda ()
-			  (let ((message (cmdl-message/null)))
-			    (push-cmdl (lambda (cmdl)
-					 cmdl ;ignore
-					 (top-level-command-reader
-					  edwin-initialization)
-					 message)
-				       false
-				       message)))
+			  (let ((cmdl (nearest-cmdl))
+				(message (cmdl-message/null)))
+			    (let ((input-port (cmdl/input-port cmdl)))
+			      (input-port/immediate-mode input-port
+				(lambda ()
+				  (make-cmdl cmdl
+					     input-port
+					     (cmdl/output-port cmdl)
+					     (lambda (cmdl)
+					       cmdl ;ignore
+					       (top-level-command-reader
+						edwin-initialization)
+					       message)
+					     false
+					     message))))))
 			(lambda () unspecific)))))))))))))
   (if edwin-finalization (edwin-finalization))
   unspecific)
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index 626295834..14a2caa4c 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.18 1989/08/29 20:04:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.19 1990/06/20 23:01:43 cph Exp $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 18 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 19 '()))
\ No newline at end of file
-- 
2.25.1