From 6dfe91fdc6e22cb4a042091cfc20b24ade779f82 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Sep 2018 18:20:08 -0400
Subject: [PATCH] Added cgen-id parameter

---
 scheme/cyclone/cps-optimizations.sld | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 6e3e9784..155cd423 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -72,6 +72,7 @@
       adbv:self-rec-call? 
       adbv:set-self-rec-call!
       with-var
+      with-var!
       ;; Analyze functions
       adb:make-fnc
       %adb:make-fnc
@@ -80,7 +81,9 @@
       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!
       with-fnc
+      with-fnc!
   )
   (begin
     ;; The following two defines allow non-CPS functions to still be considered
@@ -210,6 +213,7 @@
        assigned-to-var 
        side-effects
        well-known
+       cgen-id
       )
       adb:function?
       (simple adbf:simple adbf:set-simple!)
@@ -222,6 +226,8 @@
       ;; well-known procedure is one whose value is never used except at call
       ;; 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!)
     )
     (define (adb:make-fnc)
       (%adb:make-fnc 
@@ -230,6 +236,7 @@
        '()  ;; assigned-to-var
        #f   ;; side-effects
        #f   ;; well-known
+       #f   ;; cgen-id
       ))
 
     ;; A constant value that cannot be mutated