diff --git a/CHANGELOG.md b/CHANGELOG.md index 337a17a6..2617edb8 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -3,6 +3,10 @@ ## 0.25 - TBD TODO: consider creating a revised overview of our GC that unifies the original writeup, lazy sweeping, and these latest changes for safely sharing objects between threads. +Bug Fixes + +- Fix import of library dependencies from the interpreter, when the dependencies are imported via `cond-expand`. + ## 0.24 - TBD Bug Fixes diff --git a/scheme/eval.sld b/scheme/eval.sld index 0e03b95e..5a8f14a7 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -747,12 +747,12 @@ (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 '() '())) + (macro:load-env! macros (create-environment '() '())) (lambda (ex) (expand ex (macro:get-env) rename-env)))) @@ -766,11 +766,12 @@ (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* base-expander)) + (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* base-expander)))) ) + (for-each (lambda (lib-name) (let* ((us (lib:name->unique-string lib-name))