Added stub for CPS optimizations

cyclone.scm

@@ -81,6 +81,18 @@
       (trace:info "---------------- after CPS:")
       (trace:info input-program) ;pretty-print
 
+      
+      ;; TODO: run CPS optimization (not all of these phases may apply)
+      ;; phase 1 - constant folding, function-argument expansion, beta-contraction of functions called once,
+      ;;           and other "contractions"
+      ;; phase 2 - beta expansion
+      ;; phase 3 - eta reduction
+      ;; phase 4 - hoisting
+      ;; phase 5 - common subexpression elimination
+      ;; TODO: re-run phases again until program is stable (less than n opts made, more than r rounds performed, etc)
+      ;; END CPS optimization
+
+    
       (set! input-program
         (map
           (lambda (expr)