diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/type/primitive.lux | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/stdlib/source/test/lux/type/primitive.lux b/stdlib/source/test/lux/type/primitive.lux index 15b084af1..8ef01f41f 100644 --- a/stdlib/source/test/lux/type/primitive.lux +++ b/stdlib/source/test/lux/type/primitive.lux @@ -13,7 +13,7 @@ [data ["[0]" text (.open: "[1]#[0]" equivalence)]] ["[0]" macro (.only) - [syntax (.only syntax:)] + [syntax (.only syntax)] ["[0]" code] ["[0]" template]] ["[0]" math (.only) @@ -25,24 +25,26 @@ (template.with_locals [g!Foo g!Bar] (these (template [<syntax> <meta>] - [(syntax: (<syntax> []) - (do meta.monad - [frame <meta>] - (in (list (code.text (the /.#name frame))))))] + [(def: <syntax> + (syntax (_ []) + (do meta.monad + [frame <meta>] + (in (list (code.text (the /.#name frame)))))))] [current /.current] [specific (/.specific (template.text [g!Foo]))] ) - (syntax: (with_no_active_frames [macro <code>.any]) - (function (_ compiler) - (let [verdict (case ((macro.expansion macro) compiler) - {try.#Failure error} - (exception.match? /.no_active_frames error) - - {try.#Success _} - false)] - {try.#Success [compiler (list (code.bit verdict))]}))) + (def: with_no_active_frames + (syntax (_ [macro <code>.any]) + (function (_ compiler) + (let [verdict (case ((macro.expansion macro) compiler) + {try.#Failure error} + (exception.match? /.no_active_frames error) + + {try.#Success _} + false)] + {try.#Success [compiler (list (code.bit verdict))]})))) (with_expansions [no_current! (..with_no_active_frames (..current)) no_specific! (..with_no_active_frames (..specific))] |