Only use Cyc-seq for non-CPSing arguments

maze-get-set-root.scm

@@ -17,4 +17,10 @@
              r)))));; Then return r.
 
 (write
-  (get-set-root '()))
+  (get-set-root '(
+    (a . 1)
+    (b . 2)
+    (c . 3)
+    (d . 4)
+    (e . 5)
+  )))

scheme/cyclone/cps-optimizations.sld

@@ -1477,7 +1477,14 @@
                   (with-var 
                     (car (lambda-formals->list fn))
                     (lambda (var)
-                      (zero? (adbv:ref-count var)))))
+                      (zero? (adbv:ref-count var))))
+                  ;; Non-CPS args
+                  (every
+                    (lambda (x)
+                      (or (not (pair? x)) ;; Should never happen
+                          (and (prim-call? x)
+                               (not (prim:cont? (car x))))))
+                    args))
              `(Cyc-seq
                ,@args
                ,@(map cc (lambda->exp fn))))