From 836725a88f0ad2db7ba1d7bc2d880d89c83cecc2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 7 May 2015 16:25:10 -0400
Subject: [PATCH] Fix GC of globals, using new table

---
 runtime.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/runtime.c b/runtime.c
index 7cd00154..f87ed3ea 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1389,11 +1389,11 @@ void GC_loop(int major, closure cont, object *ans, int num_ans)
 
  /* Transport global variables. */
  transp(Cyc_global_variables); /* Internal global used by the runtime */
- { //JAE TODO: GC_GLOBALS
+ {
    list l = global_table;
    for(; !nullp(l); l = cdr(l)){
     cvar_type *c = (cvar_type *)car(l);
-    transp((c->pvar)); // TODO: proper syntax here?
+    transp(*(c->pvar)); // GC global, not the pvar
    }
  }
  while (scanp<allocp)       /* Scan the newspace. */