Wrap AST lambda bodies in a list

This commit is contained in:
Justin Ethier 2016-05-07 03:09:43 -04:00
parent f440d45dd0
commit 18b81a75af

View file

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