diff options
| author | Eduardo Julian | 2022-11-07 02:48:02 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-11-07 02:48:02 -0400 |
| commit | 13c594758482bac0a7550bcb89cfeda8c5f0a1f3 (patch) | |
| tree | 251236c17f3fe0fbd7b302d4f143e51a85539cf3 /lux-bootstrapper | |
| parent | ae4c0a4746d59b552ebeba166a43ce756dd265af (diff) | |
Added support for inline testing.
Diffstat (limited to 'lux-bootstrapper')
| -rw-r--r-- | lux-bootstrapper/src/lux/compiler/cache.clj | 4 | ||||
| -rw-r--r-- | lux-bootstrapper/src/lux/compiler/core.clj | 1 |
2 files changed, 3 insertions, 2 deletions
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) |