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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2018-10-30 17:52:49 -04:00
parent e883473885
commit f2390130cc
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-optimizations.sld
View file

@ -1726,6 +1726,8 @@
(let ((fn (car exp)) (let ((fn (car exp))
(args (map cc (cdr exp)))) (args (map cc (cdr exp))))
(cond (cond
TODO: what about application of cyc-seq? does this only occur as a nested form? can we combine here or earlier??
I think that is what is causing cc printing to explode exponentially!
((equal? 'Cyc-seq fn) ((equal? 'Cyc-seq fn)
`(Cyc-seq ,@args)) `(Cyc-seq ,@args))
((ast:lambda? fn) ((ast:lambda? fn)