Changes to match runtime system 14.82.

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index 80726e1ab902f0ebdddb20e47796c5a4ccdbb03a..391d8dafcac1f1eb2c8dee5e8f40267510b3f9c0 100644 (file)
--- 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 b5cc277c831105347494d8baf60f1cb0cdaeaa6f..a85dcd49e38be5245b6081f99ee9db778da33f56 100644 (file)
--- 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 62629583443149ba53de125d58d06ab85edbf16e..14a2caa4c38d79d68a7fc0485c6335f10ae53ce5 100644 (file)
--- 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