diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/type/resource.lux | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/stdlib/source/test/lux/type/resource.lux b/stdlib/source/test/lux/type/resource.lux index 8a42a444e..3de50b8a7 100644 --- a/stdlib/source/test/lux/type/resource.lux +++ b/stdlib/source/test/lux/type/resource.lux @@ -19,7 +19,7 @@ ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] ["[0]" macro (.only) - [syntax (.only syntax:)] + [syntax (.only syntax)] ["[0]" code]] [math ["[0]" random]]]] @@ -155,18 +155,19 @@ )) ))))) -(syntax: (with_error [exception <code>.symbol - to_expand <code>.any]) - (monad.do meta.monad - [[_ _ exception] (meta.export exception)] - (function (_ compiler) - {.#Right [compiler - (list (code.bit (case ((macro.single_expansion to_expand) compiler) - {try.#Success _} - false - - {try.#Failure error} - true)))]}))) +(def: with_error + (syntax (_ [exception <code>.symbol + to_expand <code>.any]) + (monad.do meta.monad + [[_ _ exception] (meta.export exception)] + (function (_ compiler) + {.#Right [compiler + (list (code.bit (case ((macro.single_expansion to_expand) compiler) + {try.#Success _} + false + + {try.#Failure error} + true)))]})))) (def: .public test Test |