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

Properly reference closures

Browse source
This commit is contained in:
Justin Ethier 2018-10-24 22:43:32 -04:00
parent 7e6ad07d9f
commit 6f47046be0
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cgen.sld
View file

@ -1518,7 +1518,10 @@
(create-object)) (create-object))
(else (else
(c-code/vars (c-code/vars
(string-append "&" cv-name) (if (and use-alloca?
(> (length free-vars) 0))
cv-name
(string-append "&" cv-name))
(list (list
(if (> (length free-vars) 0) (if (> (length free-vars) 0)
(create-nclosure) (create-nclosure)