diff options
| author | Eduardo Julian | 2022-04-07 03:27:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-04-07 03:27:59 -0400 |
| commit | 9224e54bf175ebe13c3fae42f04b649413c737e7 (patch) | |
| tree | dab2b19f79e79020792ee0bfe0fb6abe522639a3 /stdlib/source/test/lux/tool/compiler/language | |
| parent | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (diff) | |
De-sigil-ification: &
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux index f87e34b08..538f8375a 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux @@ -231,8 +231,8 @@ [definition] [{.#Type [public? def_type {.#Left [labels|head labels|tail]}]}] [{.#Type [public? def_type {.#Right [labels|head labels|tail]}]}] - [{.#Tag [public? def_type (list& labels|head labels|tail) index]}] - [{.#Slot [public? def_type (list& labels|head labels|tail) index]}])) + [{.#Tag [public? def_type (partial_list labels|head labels|tail) index]}] + [{.#Slot [public? def_type (partial_list labels|head labels|tail) index]}])) (|> (/.with hash module_name (do /phase.monad [_ (/.define def_name definition)] @@ -255,8 +255,8 @@ [{.#Definition [public? def_type []]}] [{.#Type [public? def_type {.#Left [labels|head labels|tail]}]}] [{.#Type [public? def_type {.#Right [labels|head labels|tail]}]}] - [{.#Tag [public? def_type (list& labels|head labels|tail) index]}] - [{.#Slot [public? def_type (list& labels|head labels|tail) index]}])) + [{.#Tag [public? def_type (partial_list labels|head labels|tail) index]}] + [{.#Slot [public? def_type (partial_list labels|head labels|tail) index]}])) (|> (/.with hash module_name (do /phase.monad [_ (/.define def_name definition) @@ -294,9 +294,9 @@ (do [! /phase.monad] [.let [it {.#Named [module_name def_name] def_type}] _ (/.define def_name {.#Type [public? it {<side> [labels|head labels|tail]}]}) - _ (/.declare_labels <record?> (list& labels|head labels|tail) public? it)] + _ (/.declare_labels <record?> (partial_list labels|head labels|tail) public? it)] (monad.each ! (|>> [module_name] <query> /extension.lifted) - (list& labels|head labels|tail)))) + (partial_list labels|head labels|tail)))) (/phase.result state) (pipe.case {try.#Success _} <on_success> @@ -312,7 +312,7 @@ (do [! /phase.monad] [.let [it def_type] _ (/.define def_name {.#Type [public? it {<side> [labels|head labels|tail]}]})] - (/.declare_labels <record?> (list& labels|head labels|tail) public? it))) + (/.declare_labels <record?> (partial_list labels|head labels|tail) public? it))) (/phase.result state) (pipe.case {try.#Success _} @@ -329,7 +329,7 @@ (do [! /phase.monad] [.let [it {.#Named [foreign_module def_name] def_type}] _ (/.define def_name {.#Type [public? it {<side> [labels|head labels|tail]}]})] - (/.declare_labels <record?> (list& labels|head labels|tail) public? it))) + (/.declare_labels <record?> (partial_list labels|head labels|tail) public? it))) (/phase.result state) (pipe.case {try.#Success _} |