From a9c5d5d2688cfc14b8cbc9b8f8d9afedcbf54481 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Sep 2018 18:26:03 -0400
Subject: [PATCH] WIP

---
 scheme/cyclone/cgen.sld              | 6 ++++--
 scheme/cyclone/cps-optimizations.sld | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index adc466a7..0b1bfe62 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -1125,8 +1125,10 @@
     (if (equal? cps? '(#f))
         (set! inline-lambdas (cons id inline-lambdas)))
     (when ast:lam
-      ;; TODO: store the allocated ID within the adbf
-      'todo
+       TODO: store the allocated ID within the adbf
+      (with-fnc! ast:lam (lambda ()
+        (adbf:set-cge
+      )
     )
     id))
 
diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 155cd423..63c23621 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -81,7 +81,7 @@
       adbf:unused-params adbf:set-unused-params!
       adbf:side-effects adbf:set-side-effects!
       adbf:well-known adbf:set-well-known!
-      adbf:cgen-id adbf:cgen-id!
+      adbf:cgen-id adbf:set-cgen-id!
       with-fnc
       with-fnc!
   )
@@ -227,7 +227,7 @@
       ;; sites where it is known.
       (well-known adbf:well-known adbf:set-well-known!)
       ;; Store internal ID generated for the lambda by the cgen module
-      (cgen-id adbf:cgen-id adbf:cgen-id!)
+      (cgen-id adbf:cgen-id adbf:set-cgen-id!)
     )
     (define (adb:make-fnc)
       (%adb:make-fnc