From: Chris Hanson Date: Thu, 30 Apr 1987 22:56:49 +0000 (+0000) Subject: In `Keyboard_Input_Procedure', the test for interrupts just before X-Git-Tag: 20090517-FFI~13563 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=527452cfb6dc0df0de25f6f8e1c39829055b2133;p=mit-scheme.git In `Keyboard_Input_Procedure', the test for interrupts just before calling `getchar' was only looking for `INT_Character'. Expand this to include `INT_Timer' as well, since that was causing a problem for Mitch Resnick. Why is this restricting which interrupts it looks at? A priori, I would think it should look at all interrupts. --- diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h index c754f2f51..31ff117e8 100644 --- a/v7/src/microcode/version.h +++ b/v7/src/microcode/version.h @@ -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/Attic/version.h,v 9.47 1987/04/29 13:51:11 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.48 1987/04/30 22:56:49 cph Exp $ This file contains version information for the microcode. */ @@ -46,7 +46,7 @@ This file contains version information for the microcode. */ #define VERSION 9 #endif #ifndef SUBVERSION -#define SUBVERSION 47 +#define SUBVERSION 48 #endif #ifndef UCODE_TABLES_FILENAME diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h index d48fb8b5a..0d2ff74dd 100644 --- a/v8/src/microcode/version.h +++ b/v8/src/microcode/version.h @@ -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/v8/src/microcode/version.h,v 9.47 1987/04/29 13:51:11 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.48 1987/04/30 22:56:49 cph Exp $ This file contains version information for the microcode. */ @@ -46,7 +46,7 @@ This file contains version information for the microcode. */ #define VERSION 9 #endif #ifndef SUBVERSION -#define SUBVERSION 47 +#define SUBVERSION 48 #endif #ifndef UCODE_TABLES_FILENAME