From 7e9440408127990b796c4a325cc0c0ee27a1fe5e Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Thu, 20 Feb 1997 15:23:18 +0000
Subject: [PATCH] Only go into eventloop/interrupt check 10 times per second

---
 Mac/Python/macglue.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index e2ca49464ef..6fc1e99222d 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -351,11 +351,20 @@ scan_event_queue(flush)
 	}
 }
 
+#define TICKCOUNT 6
+
 int
 PyOS_InterruptOccurred()
 {
+	static unsigned long nextticktime;
+	unsigned long curticktime;
+
 	if (PyMac_DoYieldEnabled < 0)
 		return 0;
+	curticktime = (unsigned long)LMGetTicks();
+	if ( curticktime < nextticktime )
+		return 0;
+	nextticktime = curticktime + TICKCOUNT;
 #ifdef THINK_C
 	scan_event_queue(1);
 #endif