From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Nov 1994 08:11:48 +0000 (+0000)
Subject: Fix think-o.
X-Git-Tag: 20090517-FFI~6918
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ac3feb6e7101a21b2b16cb471771d4356a462a44;p=mit-scheme.git

Fix think-o.
---

diff --git a/v7/src/microcode/os2conio.c b/v7/src/microcode/os2conio.c
index c654a83e7..160d979bf 100644
--- a/v7/src/microcode/os2conio.c
+++ b/v7/src/microcode/os2conio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2conio.c,v 1.1 1994/11/28 03:42:54 cph Exp $
+$Id: os2conio.c,v 1.2 1994/11/28 08:11:48 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -394,10 +394,7 @@ console_input_buffered (Tchannel channel, int new, int * pold)
       int old = input_buffered_p;
       input_buffered_p = new;
       if (old && (!new))
-	{
-	  grab_console_lock ();
-	  finish_line ();
-	}
+	flush_input ();
     }
 }
 
diff --git a/v7/src/microcode/os2term.c b/v7/src/microcode/os2term.c
index c22a2dd1c..6d5fd6325 100644
--- a/v7/src/microcode/os2term.c
+++ b/v7/src/microcode/os2term.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2term.c,v 1.1 1994/11/28 03:43:00 cph Exp $
+$Id: os2term.c,v 1.2 1994/11/28 08:11:17 cph Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -123,13 +123,13 @@ OS_terminal_buffered_p (Tchannel channel)
 void
 OS_terminal_buffered (Tchannel channel)
 {
-  OS2_channel_operation (channel, chop_input_buffered, ((choparg_t) 0), 0, 0);
+  OS2_channel_operation (channel, chop_input_buffered, ((choparg_t) 1), 0, 0);
 }
 
 void
 OS_terminal_nonbuffered (Tchannel channel)
 {
-  OS2_channel_operation (channel, chop_input_buffered, ((choparg_t) 1), 0, 0);
+  OS2_channel_operation (channel, chop_input_buffered, ((choparg_t) 0), 0, 0);
 }
 
 void