Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-07-07 17:47:24 +00:00
parent 8ed042573a
commit 7bad122821
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/cgen.sld
View file

@ -825,6 +825,15 @@
(c:body cargs) (c:body cargs)
");")))))) ");"))))))
((equal? 'Cyc-seq fun)
(let ((exps (foldr
(lambda (expr acc)
(c:append
acc
(c-compile-exp expr append-preamble cont trace cps?)))
(c-code "")
args)))
exps))
(else (else
(error `(Unsupported function application ,exp))))))) (error `(Unsupported function application ,exp)))))))