diff options
| author | Eduardo Julian | 2022-06-26 19:37:45 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-26 19:37:45 -0400 |
| commit | 853d28f803e75d125915a81dcdcd140513efe3d2 (patch) | |
| tree | 41d24b6cb5593b631793efa77f53359e8229ea37 /stdlib/source/specification/compositor/common.lux | |
| parent | 9f6505491e8a5c8a159ce094fe0af6f4fef0c5cf (diff) | |
Re-named directives to declarations.
Diffstat (limited to 'stdlib/source/specification/compositor/common.lux')
| -rw-r--r-- | stdlib/source/specification/compositor/common.lux | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/stdlib/source/specification/compositor/common.lux b/stdlib/source/specification/compositor/common.lux index e6913e8df..c9da8e718 100644 --- a/stdlib/source/specification/compositor/common.lux +++ b/stdlib/source/specification/compositor/common.lux @@ -10,7 +10,7 @@ ["[0]" reference] ["[0]" analysis] ["[0]" synthesis (.only Synthesis)] - ["[0]" directive] + ["[0]" declaration] ["[0]" phase ["[0]" macro (.only Expander)] ["[0]" generation (.only Operation)] @@ -26,9 +26,9 @@ (-> Symbol Synthesis (Try Any))) (type .public (Instancer what) - (All (_ anchor expression directive) - (-> (Platform IO anchor expression directive) - (generation.State+ anchor expression directive) + (All (_ anchor expression declaration) + (-> (Platform IO anchor expression declaration) + (generation.State+ anchor expression declaration) what))) (def (runner (open "[0]") state) @@ -51,30 +51,30 @@ (do phase.monad [_ runtime expressionG (phase expressionS) - [host_name host_value host_directive] (generation.define! lux_name expressionG) + [host_name host_value host_declaration] (generation.define! lux_name expressionG) _ (generation.learn lux_name host_name)] (phase (synthesis.constant lux_name))))] (at host evaluate! "definer" definitionG)))) (def .public (executors target expander platform - analysis_bundle generation_bundle directive_bundle - program extender) - (All (_ anchor expression directive) - (-> Text Expander (Platform IO anchor expression directive) + analysis_bundle generation_bundle declaration_bundle + program extender) + (All (_ anchor expression declaration) + (-> Text Expander (Platform IO anchor expression declaration) analysis.Bundle - (generation.Bundle anchor expression directive) - (directive.Bundle anchor expression directive) - (-> expression directive) Extender - (IO (Try [(directive.State+ anchor expression directive) + (generation.Bundle anchor expression declaration) + (declaration.Bundle anchor expression declaration) + (-> expression declaration) Extender + (IO (Try [(declaration.State+ anchor expression declaration) Runner Definer])))) (do io.monad - [?state (platform.initialize target expander analysis_bundle platform generation_bundle directive_bundle program extender)] + [?state (platform.initialize target expander analysis_bundle platform generation_bundle declaration_bundle program extender)] (in (do try.monad - [[directive_bundle directive_state] ?state - .let [generation_state (the [directive.#generation - directive.#state] - directive_state)]] - (in [[directive_bundle directive_state] + [[declaration_bundle declaration_state] ?state + .let [generation_state (the [declaration.#generation + declaration.#state] + declaration_state)]] + (in [[declaration_bundle declaration_state] (..runner platform generation_state) (..definer platform generation_state)]))))) |