Wrap AST lambda bodies in a list

2025-07-15 08:47:35 +02:00 · 2016-05-07 03:09:43 -04:00 · 2016-05-07 03:09:43 -04:00 · 18b81a75af
commit 18b81a75af
parent f440d45dd0
1 changed files with 4 additions and 3 deletions
--- a/cyclone.scm
+++ b/cyclone.scm
@ -209,9 +209,10 @@
               `(define call/cc
                 ,(ast:make-lambda 
                    '(k f) 
-                    (list 'f 'k 
-                          (ast:make-lambda '(_ result) 
-                                           '(k result)))))
+                    (list 
+                      (list 'f 'k 
+                            (ast:make-lambda '(_ result) 
+                                             (list '(k result)))))))
                 ;(lambda (k f) (f k (lambda (_ result) (k result)))))
                cps)));)
         (else