Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP, generate proper AST output from wrap-muts

Browse source
This commit is contained in:
Justin Ethier 2018-09-04 13:09:50 -04:00
parent b2f4502651
commit 8f8df24b15
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/transforms.sld
View file

@ -749,7 +749,7 @@
(wrap-mutable-formals (wrap-mutable-formals
(ast:lambda-id exp) (ast:lambda-id exp)
(ast:lambda-formals->list exp) (ast:lambda-formals->list exp)
(wrap-mutables (car (ast:lambda-body exp)) globals) (list (wrap-mutables (car (ast:lambda-body exp)) globals))
(ast:lambda-has-cont exp)) (ast:lambda-has-cont exp))
(ast:lambda-has-cont exp) (ast:lambda-has-cont exp)
)) ;; Assume single expr in lambda body, since after CPS phase )) ;; Assume single expr in lambda body, since after CPS phase