From 7a5b03edd78fcbbbcb135716b92a8ddd1dcd3518 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 30 Oct 2018 18:09:00 -0400 Subject: [PATCH] WIP --- scheme/cyclone/cps-optimizations.sld | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 2f91947a..3ebe83a3 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -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)