diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/phase.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/phase.lux | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index 5bfdac402..d1cecbe50 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -10,7 +10,7 @@ ["ex" exception (#+ Exception exception:)] ["." io] [parser - ["s" code]]] + ["<.>" code]]] [data ["." product] ["." text @@ -81,7 +81,9 @@ (function (_ state) (try\map (|>> [state]) error))) -(syntax: .public (assertion exception message test) +(syntax: .public (assertion [exception <code>.any + message <code>.any + test <code>.any]) (in (list (` (if (~ test) (\ ..monad (~' in) []) (..except (~ exception) (~ message))))))) |