aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper/src
diff options
context:
space:
mode:
Diffstat (limited to 'lux-bootstrapper/src')
-rw-r--r--lux-bootstrapper/src/lux/compiler/cache.clj4
-rw-r--r--lux-bootstrapper/src/lux/compiler/core.clj1
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)