aboutsummaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/source/lux/tool/compiler/default/platform.lux13
-rw-r--r--stdlib/source/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux10
2 files changed, 13 insertions, 10 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/platform.lux b/stdlib/source/lux/tool/compiler/default/platform.lux
index 97ab64d3d..a89ddd43e 100644
--- a/stdlib/source/lux/tool/compiler/default/platform.lux
+++ b/stdlib/source/lux/tool/compiler/default/platform.lux
@@ -227,17 +227,20 @@
_ (..cache_module static platform 0 payload)]
(wrap [state archive])))))
- (def: module_compilation_log
+ (def: compilation_log_separator
+ (format text.new_line text.tab))
+
+ (def: (module_compilation_log module)
(All [<type_vars>]
- (-> <State+> Text))
+ (-> Module <State+> Text))
(|>> (get@ [#extension.state
#///directive.generation
#///directive.state
#extension.state
#///generation.log])
(row\fold (function (_ right left)
- (format left text.new_line right))
- "")))
+ (format left ..compilation_log_separator right))
+ module)))
(def: with_reset_log
(All [<type_vars>]
@@ -536,7 +539,7 @@
(#.Right [descriptor document output])
(do !
- [#let [_ (debug.log! (..module_compilation_log state))
+ [#let [_ (debug.log! (..module_compilation_log module state))
descriptor (set@ #descriptor.references (set.from_list text.hash all_dependencies) descriptor)]
_ (..cache_module static platform module_id [descriptor document output])]
(case (archive.add module [descriptor document output] archive)
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
index a33fbc5e1..4e33cbebc 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
@@ -209,11 +209,11 @@
[(///analysis.bundle eval host_analysis)]))
state)])))
-(def: (announce_definition! name type)
+(def: (announce_definition! short type)
(All [anchor expression directive]
- (-> Name Type (Operation anchor expression directive Any)))
+ (-> Text Type (Operation anchor expression directive Any)))
(/////directive.lift_generation
- (/////generation.log! (format "Definition " (%.name name) " : " (%.type type)))))
+ (/////generation.log! (format short " : " (%.type type)))))
(def: (lux::def expander host_analysis)
(-> Expander /////analysis.Bundle Handler)
@@ -229,7 +229,7 @@
_ (/////directive.lift_analysis
(module.define short_name (#.Right [exported? type (:coerce Code annotations) value])))
_ (..refresh expander host_analysis)
- _ (..announce_definition! full_name type)]
+ _ (..announce_definition! short_name type)]
(wrap /////directive.no_requirements))
_
@@ -252,7 +252,7 @@
[_ (module.define short_name (#.Right [exported? type annotations value]))]
(module.declare_tags tags exported? (:coerce Type value))))
_ (..refresh expander host_analysis)
- _ (..announce_definition! full_name type)]
+ _ (..announce_definition! short_name type)]
(wrap /////directive.no_requirements)))]))
(def: imports