From a27a62d65b6d8c98d637fc93b45cc3a4f9161cf7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 21 Sep 2018 17:47:29 -0400
Subject: [PATCH] Fix dereferencing closure from gc_ret fnc

---
 scheme/cyclone/cgen.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index d6e37443..1f49500f 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -1645,7 +1645,7 @@
                ")"
                "{"
                   "\nobject obj = "
-                  "((closureN)" (mangle (car (adbf:all-params fnc))) ")->elements[0];\n"
+                  "((closure1)" (mangle (car (adbf:all-params fnc))) ")->element;\n"
                   "__lambda_"
                   (number->string (car l))
                   "(data, argc, obj"