Splice in lambda body of cyc-seq

2025-07-07 05:06:36 +02:00 · 2018-11-01 13:09:42 -04:00 · 2018-11-01 13:09:42 -04:00 · 61d265c512
commit 61d265c512
parent 31e749bf5a
1 changed files with 1 additions and 1 deletions
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@ -1094,7 +1094,7 @@
             (opt:inline-prims 
               `(Cyc-seq 
                  ,@(cdr exp)
-                  ,(ast:lambda-body (car exp))) 
+                  ,@(ast:lambda-body (car exp))) 
               scope-sym 
               refs))
            (else