diff options
Diffstat (limited to 'stdlib/source/library/lux/meta/compiler/default/init.lux')
-rw-r--r-- | stdlib/source/library/lux/meta/compiler/default/init.lux | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/meta/compiler/default/init.lux b/stdlib/source/library/lux/meta/compiler/default/init.lux index 6f9051947..0daa166c6 100644 --- a/stdlib/source/library/lux/meta/compiler/default/init.lux +++ b/stdlib/source/library/lux/meta/compiler/default/init.lux @@ -108,7 +108,7 @@ (monad.each ! (function (_ [name handler]) (///declaration.lifted_analysis - (moduleA.define name {.#Default [true .Analysis handler]})))))] + (moduleA.override_definition [.prelude name] {.#Default [true .Analysis handler]})))))] (in []))) (def (with_generation_defaults bundle) @@ -121,7 +121,7 @@ (monad.each ! (function (_ [name handler]) (///declaration.lifted_analysis - (moduleA.define name {.#Default [true .Generation handler]})))))] + (moduleA.override_definition [.prelude name] {.#Default [true .Generation handler]})))))] (in []))) (def (with_declaration_defaults bundle) @@ -133,8 +133,10 @@ dictionary.entries (monad.each ! (function (_ [name handler]) - (///declaration.lifted_analysis - (moduleA.define name {.#Default [true .Declaration handler]})))))] + (do ! + [_ (///declaration.lifted_analysis + (moduleA.override_definition [.prelude name] {.#Default [true .Declaration handler]}))] + (in [])))))] (in []))) (type .public (Extensions anchor expression declaration) @@ -142,7 +144,7 @@ (///generation.Bundle anchor expression declaration) (///declaration.Bundle anchor expression declaration)]) -(def (with_defaults module [analysis_bundle generation_bundle host_declaration_bundle]) +(def .public (with_defaults module [analysis_bundle generation_bundle host_declaration_bundle]) (All (_ anchor expression declaration) (-> Text (Extensions anchor expression declaration) (///declaration.Operation anchor expression declaration Any))) |