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 2018-11-13 17:17:30 -05:00
parent 04a3bb6c60
commit bad0d19424
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/cyclone/cgen.sld
View file

@ -1184,10 +1184,22 @@
((equal? 'let fun)
(let* ((vars/vals (cadr exp))
(body (caddr exp))
)
TODO: foldr over vars/vals
TODO: compile body exp and combine with above
(c-compile-exp body append-preamble cont ast-id trace cps?)
(vexps (foldr
(lambda (var/val acc)
;; Join expressions; based on c:append
(let ((cp1 (c-compile-exp (cadr var/val) append-preamble cont ast-id trace cps?))
(cp2 acc))
(c-code/vars
(let ((cp1-body (c:body cp1)))
(string-append cp1-body ";" (c:body cp2)))
(append (list (mangle (car var/val))) (c:allocs cp1) (c:allocs cp2)))))
(c-code "")
vars/vals))
(body-exp (c-compile-exp
body append-preamble cont ast-id trace cps?))
)
(trace:error `(JAE DEBUG body ,body ,vars/vals ,exp))
(c:append vexps body-exp)
)
)
(else