Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Wrap AST lambda bodies in a list

Browse source
This commit is contained in:
Justin Ethier 2016-05-07 03:09:43 -04:00
parent f440d45dd0
commit 18b81a75af
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
cyclone.scm
View file

@ -209,9 +209,10 @@
`(define call/cc `(define call/cc
,(ast:make-lambda ,(ast:make-lambda
'(k f) '(k f)
(list 'f 'k (list
(ast:make-lambda '(_ result) (list 'f 'k
'(k result))))) (ast:make-lambda '(_ result)
(list '(k result)))))))
;(lambda (k f) (f k (lambda (_ result) (k result))))) ;(lambda (k f) (f k (lambda (_ result) (k result)))))
cps)));) cps)));)
(else (else