TODO

2025-05-23 20:15:05 +02:00 · 2016-06-02 22:42:32 -04:00 · 2016-06-02 22:42:32 -04:00 · a62387cb03
commit a62387cb03
parent 348b85c492
1 changed files with 2 additions and 1 deletions
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@ -438,7 +438,8 @@
        ; Application:
        ((app? exp)
         (cond
-          ((ast:lambda? exp)
+          ((and (ast:lambda? (car exp))
+                (all-prim-calls? (cdr exp)))
           'TODO)
          (else
            (map contract-prims exp))))