From 49fe5bdef6613c924bd35c2aada672712a489090 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 14 May 2016 00:02:37 -0400
Subject: [PATCH] Call simple-lambda

---
 scheme/cyclone/optimize-cps.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index ed697e5b..605538f9 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -148,7 +148,9 @@
       (cond
         ; Core forms:
         ((ast:lambda? exp)
-         (let ((id (ast:lambda-id exp)))
+         (let* ((id (ast:lambda-id exp))
+                (fnc (adb:get id)))
+           (adbf:set-simple! (simple-lambda? exp))
            (for-each
              (lambda (expr)
                (analyze2 expr))