From 3c41a176f48646b358878b4573115ae40c69c0c1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 11 May 2016 03:36:18 -0400
Subject: [PATCH] WIP

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

diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 66e0eb2f..10d67aa7 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -103,6 +103,10 @@
                                 ,(analyze (if->else exp) lid)))
           
           ; Application:
+          ((app? exp)
+           (map (lambda (e)
+                  (analyze-cps e lid))
+                exp))
 ;TODO:          ((app? exp)      (map (lambda (e) (wrap-mutables e globals)) exp))
 
           ; Nothing to analyze for these?