From 189728d5717e7d42793bcf5aa13b42a957e4b07d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 16 Sep 2018 18:54:31 -0400
Subject: [PATCH] Store cgen-id in the analysis DB

---
 scheme/cyclone/cgen.sld | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 0b1bfe62..03441b3a 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -915,6 +915,9 @@
                (with-fnc (ast:lambda-id (closure->lam fun)) (lambda (fnc)
                  (if (and #f (adbf:well-known fnc))
                    #f
+                ;; TODO: raw lambda is called:
+                ;; use adbf:cgen-id to get it -
+                ;(this-cont (string-append "__lambda_" (number->string lid)))
                    ;;(c-code
                    ;;  (string-append
                    ;;     (c:allocs->str (c:allocs cfun) "\n")
@@ -1125,11 +1128,8 @@
     (if (equal? cps? '(#f))
         (set! inline-lambdas (cons id inline-lambdas)))
     (when ast:lam
-       TODO: store the allocated ID within the adbf
-      (with-fnc! ast:lam (lambda ()
-        (adbf:set-cge
-      )
-    )
+      (with-fnc! ast:lam (lambda (fnc)
+        (adbf:set-cgen-id! fnc id))))
     id))
 
 ; get-lambda : lambda-id -> (symbol -> string)