From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 11 Mar 1987 07:37:06 +0000 (+0000)
Subject: OS_tty_tyi now returns ints.
X-Git-Tag: 20090517-FFI~13680
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=11d6276b81e4251a8e53560a628b41739b7d8ccd;p=mit-scheme.git

OS_tty_tyi now returns ints.
---

diff --git a/v7/src/microcode/debug.c b/v7/src/microcode/debug.c
index b2fa7a7d0..f5858b089 100644
--- a/v7/src/microcode/debug.c
+++ b/v7/src/microcode/debug.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/debug.c,v 9.21 1987/01/22 14:23:06 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/debug.c,v 9.22 1987/03/11 07:37:06 jinx Exp $
  *
  * Utilities to help with debugging
  */
@@ -662,7 +662,7 @@ Boolean All;
   }
 }
 
-extern char OS_tty_tyi();
+extern int OS_tty_tyi();
 
 #define C_STRING_LENGTH 256
 
@@ -678,7 +678,7 @@ void Handle_Debug_Flags()
 
     /* Considerably haired up to go through standard (safe) interface */
 
-    c = OS_tty_tyi(false, &interrupted);
+    c = (char) OS_tty_tyi(false, &interrupted);
     if (interrupted) return;
     for (free = 0; free < C_STRING_LENGTH; free++)
     { input_string[free] = OS_tty_tyi(false, &interrupted);