From 82d7c56defeed6f34324320fed7e707b8d47e09d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 2 Sep 2020 18:31:39 -0400 Subject: [PATCH] Finish TODO --- scheme/eval.sld | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scheme/eval.sld b/scheme/eval.sld index 8129a179..036fa04d 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -745,13 +745,13 @@ (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)))) + ;(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)))) @@ -766,7 +766,7 @@ TODO: (explicit-lib-names (map lib:import->library-name (lib:list->import-set import-sets))) ;; All dependent libraries - (lib-names (lib:get-all-import-deps import-sets *append-dirs* *prepend-dirs* #f)) + (lib-names (lib:get-all-import-deps import-sets *append-dirs* *prepend-dirs* base-expander)) (renamed-syms (filter pair? (map car (lib:imports->idb import-sets *append-dirs* *prepend-dirs*))))