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

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) ((equal? 'Cyc-seq fun)
(let ((exps (foldr (let ((exps (foldr
(lambda (expr acc) (lambda (expr acc)
(c:append ;(c:append
acc (let ((cp1 (c-compile-exp expr append-preamble cont trace cps?))
(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 "") (c-code "")
args))) args)))
exps)) exps))