Eliminate references to old transcript mechanism.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d3b17c260cb1f0c2e6e8bf3ba4d5ffe59836075f..1d2f3e59ec9ce86893c5a1a64a30d90911a4a466 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.235 1999/02/01 03:31:51 cph Exp $
+$Id: edwin.pkg,v 1.236 1999/02/18 04:03:57 cph Exp $
 
 Copyright (c) 1989-1999 Massachusetts Institute of Technology
 
@@ -971,8 +971,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
            terminal-raw-input
            terminal-raw-output
            terminal-set-state)
-    (import (runtime transcript)
-           transcript-port)
     (initialization (initialize-package!)))))
 
 (os-type-case

diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm
index cc035259499a06d52a6a8611462b388678479907..035b3b9d039ccbed37509a397774743806c76af9 100644 (file)
--- a/v7/src/edwin/tterm.scm
+++ b/v7/src/edwin/tterm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: tterm.scm,v 1.28 1999/01/02 06:11:34 cph Exp $
+$Id: tterm.scm,v 1.29 1999/02/18 04:04:05 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -222,14 +222,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
            (if block?
                (channel-blocking channel)
                (channel-nonblocking channel))
-           (let ((n  (channel-read channel string end input-buffer-size)))
+           (let ((n (channel-read channel string end input-buffer-size)))
              (cond ((not n)  #F)
                    ((fix:> n 0)
-                    (let ((new-end (fix:+ end n)))
-                      (if transcript-port
-                          (output-port/write-substring transcript-port
-                                                       string end new-end))
-                      (set! end new-end))
+                    (set! end (fix:+ end n))
                     #T)
                    ((fix:= n 0)
                     ;;(error "Reached EOF in keyboard input.")