From 2d5e75764f5cdf678ed2e9ccf5e3a9c0fd381a1b Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 17 Oct 2018 15:54:14 -0400 Subject: [PATCH] Added TODO --- scheme/cyclone/cps-optimizations.sld | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 22cd7b7b..cd428d73 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1954,15 +1954,19 @@ (cond ((ref? sym) (let ((var (adb:get/default sym #f))) - (trace:info `(rec-call? ,sym ,lid + (trace:info + `(rec-call? ,sym ,lid + ;; TODO: crap, these are not set yet!!! + may need to consider keeping out original version of find-recursive-calls and + adding a new version that does a deeper analysis ,(if var (not (adbv:reassigned? var)) #f) ,(if var (adbv:assigned-value var) #f) ;,((ast:lambda? var-lam)) ,(adb:get/default lid #f) ) ) - (and-let* (((ref? sym)) - ((var)) + (and-let* ( + ((not (equal? var #f))) ((not (adbv:reassigned? var))) (var-lam (adbv:assigned-value var)) ((ast:lambda? var-lam))