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/src')

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