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-10-30 18:09:00 -04:00
parent f2390130cc
commit 7a5b03edd7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1726,8 +1726,11 @@
(let ((fn (car exp))
(args (map cc (cdr exp))))
(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!
;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!
;((tagged-list? 'Cyc-seq fnc)
; (foldl (lambda (sexp acc) (cons sexp acc)) '() (reverse '(a b c (cyc-seq 1) (cyc-seq 2 ((cyc-seq 3))))))
; TODO: maybe just call a function to 'flatten' seq's
((equal? 'Cyc-seq fn)
`(Cyc-seq ,@args))
((ast:lambda? fn)