From 13c594758482bac0a7550bcb89cfeda8c5f0a1f3 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 7 Nov 2022 02:48:02 -0400 Subject: Added support for inline testing. --- lux-bootstrapper/src/lux/compiler/cache.clj | 4 ++-- lux-bootstrapper/src/lux/compiler/core.clj | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) (limited to 'lux-bootstrapper') diff --git a/lux-bootstrapper/src/lux/compiler/cache.clj b/lux-bootstrapper/src/lux/compiler/cache.clj index 301ddb7ef..dd8fb1188 100644 --- a/lux-bootstrapper/src/lux/compiler/cache.clj +++ b/lux-bootstrapper/src/lux/compiler/cache.clj @@ -74,9 +74,9 @@ (defn ^:private process-def-entry [load-def-value module ^String _def-entry] (let [parts (.split _def-entry &&core/datum-separator)] (case (first parts) - "A" (let [[_ _name ^String _alias] parts + "A" (let [[_ _name _exported? ^String _alias] parts [__module __name] (.split _alias &/+name-separator+)] - (&a-module/define-alias module _name (&/T [__module __name]))) + (&a-module/define-alias module _name (= "1" _exported?) (&/T [__module __name]))) "D" (let [[_ _name _exported? _type] parts [def-type _] (&&&type/deserialize-type _type)] (|do [def-value (load-def-value module _name)] diff --git a/lux-bootstrapper/src/lux/compiler/core.clj b/lux-bootstrapper/src/lux/compiler/core.clj index 07cd8c759..f6f5c043f 100644 --- a/lux-bootstrapper/src/lux/compiler/core.clj +++ b/lux-bootstrapper/src/lux/compiler/core.clj @@ -51,6 +51,7 @@ (&/$AliasG [_dmodule _dname]) (str "A" datum-separator ?name + datum-separator (if exported? "1" "0") datum-separator _dmodule &/+name-separator+ _dname ;; Next entry-separator def-entries) -- cgit v1.2.3