diff options
Diffstat (limited to 'stdlib/source/test/lux/macro.lux')
-rw-r--r-- | stdlib/source/test/lux/macro.lux | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/macro.lux b/stdlib/source/test/lux/macro.lux index 349ec7bbd..0a16b1491 100644 --- a/stdlib/source/test/lux/macro.lux +++ b/stdlib/source/test/lux/macro.lux @@ -36,14 +36,16 @@ ["[1][0]" template] ["[1][0]" pattern]]) -(template: (!expect <pattern> <value>) - [(case <value> - <pattern> true - _ false)]) +(def: !expect + (template (_ <pattern> <value>) + [(case <value> + <pattern> true + _ false)])) -(template: (!global <definition>) - [(is [Text .Global] - [(template.text [<definition>]) {.#Definition [true .Macro <definition>]}])]) +(def: !global + (template (_ <definition>) + [(is [Text .Global] + [(template.text [<definition>]) {.#Definition [true .Macro <definition>]}])])) (def: pow/2 (syntax (_ [number <code>.any]) @@ -130,7 +132,7 @@ full_expansion (` (n.* (n.* (~ pow/1) (~ pow/1)) (n.* (~ pow/1) (~ pow/1))))]] (`` (all _.and - (~~ (template [<expander> <logger> <expansion>] + (~~ (with_template [<expander> <logger> <expansion>] [(_.coverage [<expander>] (|> (<expander> (` (..pow/4 (~ pow/1)))) (meta.result lux) |