diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/default/platform.lux | 13 | ||||
| -rw-r--r-- | stdlib/source/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux | 10 |
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 |