diff options
Diffstat (limited to 'stdlib/source/test/lux/ffi.jvm.lux')
-rw-r--r-- | stdlib/source/test/lux/ffi.jvm.lux | 52 |
1 files changed, 27 insertions, 25 deletions
diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux index 4a25f246e..3a6df69db 100644 --- a/stdlib/source/test/lux/ffi.jvm.lux +++ b/stdlib/source/test/lux/ffi.jvm.lux @@ -21,7 +21,7 @@ [collection ["[0]" array (.only Array)]]] ["[0]" macro (.only) - [syntax (.only syntax:)] + [syntax (.only syntax)] ["[0]" code] ["[0]" template]] [math @@ -71,16 +71,17 @@ [character#= /.Character /.char_to_long Int i#=] ) -(syntax: (macro_error [expression <code>.any]) - (function (_ lux) - (|> (macro.single_expansion expression) - (meta.result lux) - (pipe.case - {try.#Success expansion} - {try.#Failure "OOPS!"} - - {try.#Failure error} - {try.#Success [lux (list (code.text error))]})))) +(def: macro_error + (syntax (_ [expression <code>.any]) + (function (_ lux) + (|> (macro.single_expansion expression) + (meta.result lux) + (pipe.case + {try.#Success expansion} + {try.#Failure "OOPS!"} + + {try.#Failure error} + {try.#Success [lux (list (code.text error))]}))))) (def: for_conversions Test @@ -614,20 +615,21 @@ example/9!) ))) -(syntax: (expands? [expression <code>.any]) - (function (_ lux) - (|> (macro.single_expansion expression) - (meta.result lux) - (pipe.case - {try.#Success expansion} - true - - {try.#Failure error} - false) - code.bit - list - [lux] - {try.#Success}))) +(def: expands? + (syntax (_ [expression <code>.any]) + (function (_ lux) + (|> (macro.single_expansion expression) + (meta.result lux) + (pipe.case + {try.#Success expansion} + true + + {try.#Failure error} + false) + code.bit + list + [lux] + {try.#Success})))) (def: for_exception Test |