diff options
Diffstat (limited to 'stdlib/source/library/lux/meta/macro.lux')
| -rw-r--r-- | stdlib/source/library/lux/meta/macro.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/meta/macro.lux b/stdlib/source/library/lux/meta/macro.lux index 86e9fe57d..464329a25 100644 --- a/stdlib/source/library/lux/meta/macro.lux +++ b/stdlib/source/library/lux/meta/macro.lux @@ -116,7 +116,7 @@ (def .public with_symbols (.macro (_ tokens) (case tokens - (pattern (list [_ {.#Tuple symbols}] body)) + (list [_ {.#Tuple symbols}] body) (do [! //.monad] [symbol_names (monad.each ! ..local symbols) .let [symbol_defs (list#conjoint (list#each (is (-> Text (List Code)) @@ -134,7 +134,7 @@ (do //.monad [token+ (..expansion token)] (case token+ - (pattern (list token')) + (list token') (in token') _ @@ -148,11 +148,11 @@ macro_name [module short]] (case (is (Maybe [Bit Code]) (case tokens - (pattern (list [_ {.#Text "omit"}] - token)) + (list [_ {.#Text "omit"}] + token) {.#Some [#1 token]} - (pattern (list token)) + (list token) {.#Some [#0 token]} _ @@ -180,7 +180,7 @@ (def .public times (.macro (_ tokens) (case tokens - (pattern (list.partial [_ {.#Nat times}] terms)) + (list.partial [_ {.#Nat times}] terms) (loop (again [times times before terms]) (case times |