diff options
Diffstat (limited to 'stdlib/source/library/lux/macro/pattern.lux')
-rw-r--r-- | stdlib/source/library/lux/macro/pattern.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/library/lux/macro/pattern.lux b/stdlib/source/library/lux/macro/pattern.lux index e6ae605a2..9e8e64d70 100644 --- a/stdlib/source/library/lux/macro/pattern.lux +++ b/stdlib/source/library/lux/macro/pattern.lux @@ -25,7 +25,7 @@ [list#conjoint] [every?] - [maybe_monad] + [maybe#monad] [function#composite] @@ -42,7 +42,7 @@ [symbol_short] [tuple_list] - [meta_monad] + [meta#monad] [text$] [generated_symbol] [type_definition] @@ -96,9 +96,9 @@ [_ {.#Form data}] branches)) (case (is (Maybe (List Code)) - (do maybe_monad - [bindings' (monad#each maybe_monad symbol_short bindings) - data' (monad#each maybe_monad tuple_list data)] + (do maybe#monad + [bindings' (monad#each maybe#monad symbol_short bindings) + data' (monad#each maybe#monad tuple_list data)] (.let [num_bindings (list#size bindings')] (if (every? (|>> ("lux i64 =" num_bindings)) (list#each list#size data')) @@ -122,7 +122,7 @@ (macro (_ tokens) (case tokens (pattern (partial_list [_meta {.#Form levels}] body next_branches)) - (do meta_monad + (do meta#monad [mlc (multi_level_case^ levels) .let [initial_bind? (case mlc [[_ {.#Symbol _}] _] @@ -195,13 +195,13 @@ (case (list#reversed elems) {.#Item [_ {.#Form {.#Item [[_ {.#Symbol ["" "~+"]}] {.#Item [spliced {.#End}]}]}}] inits} - (do meta_monad - [=inits (monad#each meta_monad untemplated_pattern (list#reversed inits))] + (do meta#monad + [=inits (monad#each meta#monad untemplated_pattern (list#reversed inits))] (in (.` [(~ g!meta) {<tag> (~ (untemplated_partial_list spliced =inits))}]))) _ - (do meta_monad - [=elems (monad#each meta_monad untemplated_pattern elems)] + (do meta#monad + [=elems (monad#each meta#monad untemplated_pattern elems)] (in (.` [(~ g!meta) {<tag> (~ (untemplated_list =elems))}])))))] [.#Form untemplated_form] @@ -211,7 +211,7 @@ (def: (untemplated_pattern pattern) (-> Code (Meta Code)) - (do meta_monad + (do meta#monad [g!meta (..generated_symbol "g!meta")] (case pattern (..with_template [<tag> <gen>] @@ -243,12 +243,12 @@ (macro (_ tokens) (case tokens (pattern (partial_list [_meta {.#Form (list template)}] body branches)) - (do meta_monad + (do meta#monad [pattern (untemplated_pattern template)] (in (partial_list pattern body branches))) (pattern (list template)) - (do meta_monad + (do meta#monad [pattern (untemplated_pattern template)] (in (list pattern))) |