From 1055ecebee177d3ca4b24a101f5ac3978a9636f9 Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Mon, 1 Jul 1991 18:46:03 +0000
Subject: [PATCH] Reorganized somewhat to make it really work on Think C. Hope
 the best for MPW 3.

---
 Parser/intrcheck.c | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/Parser/intrcheck.c b/Parser/intrcheck.c
index ee14ecaf1ea..fdd27b99389 100644
--- a/Parser/intrcheck.c
+++ b/Parser/intrcheck.c
@@ -25,6 +25,9 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 /* Check for interrupts */
 
 #ifdef THINK_C
+/* This is for THINK C 4.0.
+   For 3.0, you may have to remove the signal stuff. */
+#include <MacHeaders>
 #define macintosh
 #endif
 
@@ -56,13 +59,7 @@ intrcheck()
 
 #ifdef macintosh
 
-#ifdef THINK_C
-/* This is for THINK C 4.0.
-   For 3.0, you may have to remove the signal stuff. */
-#include <MacHeaders>
-#else
-/* This is for MPW 3.1 */
-/* XXX Untested */
+#ifdef applec /* MPW */
 #include <OSEvents.h>
 #include <SysEqu.h>
 #endif
@@ -73,7 +70,7 @@ intrcheck()
 static int interrupted;
 
 static SIGTYPE
-intcatcher(ig)
+intcatcher(sig)
 	int sig;
 {
 	interrupted = 1;
@@ -92,8 +89,6 @@ intrcheck()
 {
 	register EvQElPtr q;
 	
-	/* This is like THINK C 4.0's <console.h> */
-	/* q = (EvQElPtr) EventQueue.qHead; */
 	q = (EvQElPtr) GetEvQHdr()->qHead;
 	
 	for (; q; q = (EvQElPtr)q->qLink) {