From ef307e643b61c41060721cdfffed9776be797b3a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 18 Feb 1999 04:04:05 +0000 Subject: [PATCH] Eliminate references to old transcript mechanism. --- v7/src/edwin/edwin.pkg | 4 +--- v7/src/edwin/tterm.scm | 10 +++------- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg index d3b17c260..1d2f3e59e 100644 --- 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 cc0352594..035b3b9d0 100644 --- 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.") -- 2.25.1