diff options
Diffstat (limited to '')
| -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) |