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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2016-05-21 04:24:01 -04:00
parent e06ece8e36
commit 496ff85859
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/cps-optimizations.sld
View file

@ -316,10 +316,14 @@
,(opt:contract (if->else exp))))
; Application:
((app? exp)
;; TODO: check for ast:lambda, and if so check for any const args.
;; if there are any, need to remove them from lambda args and
;; calling params
(map (lambda (e) (opt:contract e)) exp))
(cond
((ast:lambda? exp)
TODO: walk param/arg lists, checking for any const args.
if there are any, need to remove them from lambda args and
calling params
)
(else
(map (lambda (e) (opt:contract e)) exp))))
(else
(error "CPS optimize [1] - Unknown expression" exp))))