From 496ff85859e46860c8b1463681335d2389db2dc5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 21 May 2016 04:24:01 -0400 Subject: [PATCH] Added TODO --- scheme/cyclone/cps-optimizations.sld | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index ecee8d6c..cba74c34 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -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))))