From 6d35fb6fe7f4f2d3de52dc2fbc8e5834cadb7d81 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 21 Sep 2018 13:32:36 -0400
Subject: [PATCH] Deref closure param

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

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