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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2018-11-13 17:57:44 -05:00
parent bad0d19424
commit c4f75486b6
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/cps-opt-local-var-redux.scm
View file

@ -59,6 +59,8 @@
;; (car (ast:lambda-body (car exp))) ;; (car (ast:lambda-body (car exp)))
;; (car (ast:lambda-args (car exp)))))) ;; (car (ast:lambda-args (car exp))))))
;;(newline) ;;(newline)
TODO: need to revisit this, may need to replace values with assignments to the "let" variable.
would need to be able to carry that through to cgen and assign properly over there...
(let ((value (lvr:tail-calls->values (let ((value (lvr:tail-calls->values
(car (ast:lambda-body (car exp))) (car (ast:lambda-body (car exp)))
(car (ast:lambda-args (car exp))))) (car (ast:lambda-args (car exp)))))