diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/macro/template.lux | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/stdlib/source/test/lux/macro/template.lux b/stdlib/source/test/lux/macro/template.lux index 74263e302..dd0a8ef06 100644 --- a/stdlib/source/test/lux/macro/template.lux +++ b/stdlib/source/test/lux/macro/template.lux @@ -31,11 +31,11 @@ (syntax: (macro_error [macro <code>.any]) (function (_ compiler) (case ((macro.expansion macro) compiler) - {#try.Failure error} - {#try.Success [compiler (list (code.text error))]} + {try.#Failure error} + {try.#Success [compiler (list (code.text error))]} - {#try.Success _} - {#try.Failure "OOPS!"}))) + {try.#Success _} + {try.#Failure "OOPS!"}))) (def: .public test Test @@ -44,9 +44,9 @@ [left random.nat mid random.nat right random.nat] - (with_expansions [<module> (as_is [.5 -4 +3 2 #1 #0 #c b "a"]) + (with_expansions [<module> (as_is [.5 -4 +3 2 #1 #0 c b "a"]) <module>' ".5-4+32#1#0cba" - <short> (as_is ["a" b #c #0 #1 2 +3 -4 .5]) + <short> (as_is ["a" b c #0 #1 2 +3 -4 .5]) <short>' "abc#0#12+3-4.5"] ($_ _.and (_.cover [/.spliced] @@ -69,14 +69,6 @@ [<module>' <short>'] true _ false) )) - (_.cover [/.tag] - (and (case (`` (name_of (~~ (/.tag <short>)))) - ["" <short>'] true - _ false) - (case (`` (name_of (~~ (/.tag <module> <short>)))) - [<module>' <short>'] true - _ false) - )) (_.cover [/.with_locals] (/.with_locals [var0 var1] (let [var0 left |