Added stub

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)

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)
+
 ))