From b74213ec2dbfe7da026afca2e1348051ebec75e2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 4 May 2017 05:11:23 +0000
Subject: [PATCH] Attempt 2 CPS optimization passes

---
 cyclone.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/cyclone.scm b/cyclone.scm
index 5112c9c5..e51a7d76 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -390,8 +390,15 @@
       (when (> *optimization-level* 0)
         (set! input-program
           (optimize-cps input-program))
-        (trace:info "---------------- after cps optimizations:")
-        (trace:info input-program))
+        (trace:info "---------------- after cps optimizations (1):")
+        (trace:info input-program)
+
+        (set! input-program
+          (optimize-cps input-program))
+        (trace:info "---------------- after cps optimizations (2):")
+        (trace:info input-program)
+        
+      )
     
       (set! input-program
         (map