From 3065eae9a4c0606084cc20b23d3ad0a28341313d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 15 Aug 2018 09:51:17 -0400 Subject: [PATCH] Added TODO items --- scheme/cyclone/cps-optimizations.sld | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index f2827248..afb7a376 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -104,7 +104,9 @@ (define (adb:set! key val) (hash-table-set! *adb* key val)) (define-record-type (%adb:make-var - global defined-by + global +;; TODO: defined-in-sym + defined-by defines-lambda-id const const-value ref-count ref-by @@ -119,6 +121,11 @@ ) adb:variable? (global adbv:global? adbv:set-global!) +;; TODO: Symbol of the top-level define the variable is defined in, or *top-level-sym* (??) if +;; variable is defined at the top level. +;; TODO: defined-in-sym +;; TODO: once this is in place, populate it when mutating indirectly (will need to contain a list of these) +;; and use it when checking the value of mutated-indirectly (defined-by adbv:defined-by adbv:set-defined-by!) (defines-lambda-id adbv:defines-lambda-id adbv:set-defines-lambda-id!) (const adbv:const? adbv:set-const!)