From f0869550597246b04421f89fe56fc122392ef5e1 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 2 Sep 2020 18:14:01 -0400 Subject: [PATCH] Added TODO --- scheme/eval.sld | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/scheme/eval.sld b/scheme/eval.sld index 181777f5..8129a179 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -745,6 +745,17 @@ (set! *append-dirs* append-dirs) (set! *prepend-dirs* prepend-dirs)) +TODO: +(define (base-expander) + (let ((rename-env (env:extend-environment '() '() '())) + #;(macros (filter + (lambda (v) + (Cyc-macro? (Cyc-get-cvar (cdr v)))) + (Cyc-global-vars)))) + ;(macro:load-env! macros (create-environment '() '())) + (lambda (ex) + (expand ex (macro:get-env) rename-env)))) + ;; TODO: right now this is a hack, just get all the imports sets and call their entry point ;; function to initialize them. longer-term will need to only load the specific identifiers ;; called out in the import sets