From 8efb71409712b81fd5c6e61586c56949035dcbe7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 14 Mar 2017 22:59:45 +0000
Subject: [PATCH] WIP

---
 scheme/base.sld | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index d046b8f8..bcdfa116 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -957,6 +957,7 @@
       "(void *data, int argc, closure _, object k, object obj)"
       " make_pair(p, obj, NULL);
         gc_thread_data *thd = (gc_thread_data *)data;
+        //Cyc_global_set(thd, thd->param_objs, &p); // TODO: needed?? seems to be segfauling, though
         cdr(&p) = thd->param_objs;
         thd->param_objs = (object)(&p);
         return_closcall1(data, k, thd->param_objs); ")