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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-07-07 18:44:13 -04:00
parent 7bad122821
commit 8ba1954ac3
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/cgen.sld
View file

@ -828,9 +828,12 @@
((equal? 'Cyc-seq fun)
(let ((exps (foldr
(lambda (expr acc)
(c:append
acc
(c-compile-exp expr append-preamble cont trace cps?)))
;(c:append
(let ((cp1 (c-compile-exp expr append-preamble cont trace cps?))
(cp2 acc))
(c-code/vars
(string-append (c:body cp1) ";" (c:body cp2))
(append (c:allocs cp1) (c:allocs cp2)))))
(c-code "")
args)))
exps))