From fdd8204be39c13e1629a7f4f30310d768315237a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 31 May 2007 05:59:40 +0000
Subject: [PATCH] register MrEd_mid_queue_key with GC

svn: r6427
---
 src/mred/wxs/wxscheme.cxx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mred/wxs/wxscheme.cxx b/src/mred/wxs/wxscheme.cxx
index d074489746..7e2a3faf4b 100644
--- a/src/mred/wxs/wxscheme.cxx
+++ b/src/mred/wxs/wxscheme.cxx
@@ -3085,6 +3085,7 @@ static void wxScheme_Install(Scheme_Env *global_env)
 						    "queue-callback",
 						    1, 2),
 			   global_env);
+  wxREGGLOB(MrEd_mid_queue_key);
   MrEd_mid_queue_key = scheme_make_pair(scheme_false, scheme_false);
   scheme_install_xc_global("middle-queue-key", MrEd_mid_queue_key, global_env);