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

Fix for AST output for wrap-mutables

Browse source
This commit is contained in:
Justin Ethier 2018-09-05 17:45:02 -04:00
parent cc1bfea6f0
commit 9d606f9d43
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/transforms.sld
View file

@ -734,13 +734,14 @@
body-exp body-exp
;(list body-exp) ;(list body-exp)
(if (is-mutable? (car formals)) (if (is-mutable? (car formals))
(list
(list ;(ast:%make-lambda (list ;(ast:%make-lambda
; id ; id
(ast:make-lambda (ast:make-lambda
(list (car formals)) (list (car formals))
(wrap-mutable-formals id (cdr formals) body-exp has-cont) (wrap-mutable-formals id (cdr formals) body-exp has-cont)
has-cont) has-cont)
`(cell ,(car formals))) `(cell ,(car formals))))
(wrap-mutable-formals id (cdr formals) body-exp has-cont)))) (wrap-mutable-formals id (cdr formals) body-exp has-cont))))
(cond (cond