From: Stephen Adams Date: Thu, 3 Nov 1994 04:25:45 +0000 (+0000) Subject: Fixes to allow bios and the new tterm to work together. X-Git-Tag: 20090517-FFI~7028 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9042a2ff50acab9fbf568278042799051a629401;p=mit-scheme.git Fixes to allow bios and the new tterm to work together. --- diff --git a/v7/src/edwin/bios.scm b/v7/src/edwin/bios.scm index 767a4b87e..66f0cc733 100644 --- a/v7/src/edwin/bios.scm +++ b/v7/src/edwin/bios.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: bios.scm,v 1.3 1992/10/20 15:34:30 jinx Exp $ +$Id: bios.scm,v 1.4 1994/11/03 04:24:54 adams Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -33,7 +33,7 @@ promotional, or sales literature without prior written consent from MIT in each case. |# ;;;; IBM-PC BIOS Screen Implementation -;;; package: (edwin console-screen) +;;; package: (edwin screen console-screen) (declare (usual-integrations)) @@ -80,7 +80,7 @@ MIT in each case. |# make-bios-screen (lambda (screen) screen - (get-console-input-operations)) + (get-console-input-operations #F)) with-console-grabbed with-console-interrupts-enabled with-console-interrupts-disabled)) diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm index 22268ae8e..0d6bf7904 100644 --- a/v7/src/edwin/tterm.scm +++ b/v7/src/edwin/tterm.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: tterm.scm,v 1.25 1994/11/01 23:02:14 adams Exp $ +$Id: tterm.scm,v 1.26 1994/11/03 04:25:45 adams Exp $ -Copyright (c) 1990-1993 Massachusetts Institute of Technology +Copyright (c) 1990-1994 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -187,6 +187,7 @@ MIT in each case. |# ((parse-key ; -> #F or a char? or a special-key? (lambda () (and (fix:< start end) + terminal-state (let ((n-chars (fix:- end start))) (let find ((key-pairs (terminal-state/key-table terminal-state)) (possible-pending? #F))