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 767a4b87e1c6c9dad6286946be46a135c467816a..66f0cc733221a0b39eafc7cabacf7388e2f4da42 100644 (file)
--- 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))
 \f
@@ -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 22268ae8e8759bc53c9f169d0ecf1a5e1d5468a7..0d6bf7904d2d3a1e45e84dc75b999bf9850440ef 100644 (file)
--- 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))