diff options
Diffstat (limited to 'stdlib/source/specification/compositor/common.lux')
| -rw-r--r-- | stdlib/source/specification/compositor/common.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/specification/compositor/common.lux b/stdlib/source/specification/compositor/common.lux index 31a1675f3..e5d3dab25 100644 --- a/stdlib/source/specification/compositor/common.lux +++ b/stdlib/source/specification/compositor/common.lux @@ -31,7 +31,7 @@ (generation.State+ anchor expression directive) what))) -(def: (runner (^slots [#platform.runtime #platform.phase #platform.host]) state) +(def: (runner (^slots [platform.#runtime platform.#phase platform.#host]) state) (Instancer Runner) (function (_ evaluation_name expressionS) (do try.monad @@ -42,7 +42,7 @@ (phase expressionS)))] (\ host evaluate! evaluation_name expressionG)))) -(def: (definer (^slots [#platform.runtime #platform.phase #platform.host]) +(def: (definer (^slots [platform.#runtime platform.#phase platform.#host]) state) (Instancer Definer) (function (_ lux_name expressionS) @@ -73,8 +73,8 @@ [?state (platform.initialize target expander analysis_bundle platform generation_bundle directive_bundle program extender)] (in (do try.monad [[directive_bundle directive_state] ?state - .let [generation_state (value@ [#directive.generation - #directive.state] + .let [generation_state (value@ [directive.#generation + directive.#state] directive_state)]] (in [[directive_bundle directive_state] (..runner platform generation_state) |