From 38456e8b5f07e4878fc9a1bf029096565185de1b Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 2 Jun 2009 16:24:05 +0000
Subject: [PATCH] Make static Evt **evts THREAD_LOCAL

svn: r15047
---
 src/mzscheme/src/thread.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index 079e214de6..fde5eed099 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -5180,8 +5180,8 @@ typedef struct Evt {
   int can_redirect;
 } Evt;
 
-static int evts_array_size;
-static Evt **evts;
+static THREAD_LOCAL int evts_array_size;
+static THREAD_LOCAL Evt **evts;
 
 void scheme_add_evt(Scheme_Type type,
 		    Scheme_Ready_Fun ready,