From c9fd208a72a3d1f964c6221bca6d9e35657c4574 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 12 Sep 2018 17:17:31 -0400
Subject: [PATCH] Added stub

---
 cyclone.scm                          | 4 ++++
 scheme/cyclone/cps-optimizations.sld | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/cyclone.scm b/cyclone.scm
index 7d7e2e73..d5ed876e 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -434,6 +434,10 @@
       (trace:info "---------------- after wrap-mutables:")
       (trace:info (ast:ast->pp-sexp input-program))
     
+      ;; Perform this analysis here since we need it later so it doesn't
+      ;; make sense to execute it multiple times during CPS optimization
+      (analyze:find-known-lambdas input-program)
+
       (set! input-program 
         (map
           (lambda (expr)
diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 1297461d..b014eebe 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -27,6 +27,7 @@
       analyze-find-lambdas
       analyze:find-named-lets
       analyze:find-direct-recursive-calls
+      analyze:find-known-lambdas
       ;analyze-lambda-side-effects
       opt:add-inlinable-functions
       opt:contract
@@ -1925,4 +1926,7 @@
           exp))
 )
 
+(define (analyze:find-known-lambdas exp)
+  'TODO)
+
 ))