Do not sequence prims that call into conts

2025-05-23 20:15:05 +02:00 · 2018-11-01 18:24:43 -04:00 · 2018-11-01 18:24:43 -04:00 · 6da3367169
commit 6da3367169
parent 8aac3163af
1 changed files with 5 additions and 0 deletions
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@ -1085,6 +1085,11 @@
            )) ;;
            ;; Lambda with a parameter that is never used; sequence code instead to avoid lambda
            ((and (ast:lambda? (car exp))
+                  (every
+                    (lambda (arg)
+                      (or (not (prim-call? arg))
+                          (not (prim:cont? (car arg)))))
+                    (cdr exp))
                  (every
                    (lambda (param)
                      (with-var param (lambda (var)