From d112632300a6ab65c57d3ae0f4ec328b0a4499ac Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 3 Jun 2016 21:51:07 -0400
Subject: [PATCH] WIP

---
 scheme/cyclone/cps-optimizations.sld | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index a866c650..b7f56b6b 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -456,7 +456,11 @@
                   ;; TODO: check for more than one arg??
                   (equal? (length (cdr exp))
                           (length (ast:lambda-formals->list (car exp))))
-                  (all-prim-calls? (cdr exp)))
+                  (every
+                    (lambda (arg)
+                      (and (prim-call? arg)
+                           (not (prim:cont? (car arg)))))
+                    (cdr exp)))
              (let ((args (cdr exp)))
                (for-each
                 (lambda (param)
@@ -536,7 +540,8 @@
       (trace:info "---------------- cps analysis db:")
       (trace:info (adb:get-db))
       ;ast ;; DEBUGGING!!!
-      (opt:contract ast)
+      ;(contract-prims 
+      ;  (opt:contract ast))
     )
 
 ;; Older code, delete this soon