From 67698ec9a752d71e45191b9c3a8add37c7c2da6c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 25 Oct 2018 17:47:49 -0400
Subject: [PATCH] Added TODO

---
 scheme/cyclone/cps-optimizations.sld | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index cf187628..39974883 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1794,6 +1794,7 @@
 ;;  (%closure-ref
 ;;     (cell-get (%closure-ref self$249 1))
 ;;     0)
+TODO: need adbf, only a closure call if inner-cref's index matches adbf:self-closure-index
 (define (self-closure-call? ast self)
   (and-let* (((tagged-list? '%closure-ref ast))
              ((tagged-list? 'cell-get (cadr ast)))