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