From a62387cb03649b4c86cc916ac5a4634ca0be678e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 2 Jun 2016 22:42:32 -0400
Subject: [PATCH] TODO

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

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 26c2d3cb..ec266c08 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -438,7 +438,8 @@
         ; Application:
         ((app? exp)
          (cond
-          ((ast:lambda? exp)
+          ((and (ast:lambda? (car exp))
+                (all-prim-calls? (cdr exp)))
            'TODO)
           (else
             (map contract-prims exp))))