diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/phase.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/phase.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index a54785eed..7140df44f 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -6,7 +6,7 @@ [monad {"+" [Monad do]}]] [control ["[0]" state] - ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]} ("[1]#[0]" functor)] ["ex" exception {"+" [Exception exception:]}] ["[0]" io] [parser @@ -47,7 +47,7 @@ (-> s (Operation s o) (Try o))) (|> state operation - (\ try.monad each product.right))) + (# try.monad each product.right))) (def: .public get_state (All (_ s o) @@ -82,13 +82,13 @@ (def: .public (lifted error) (All (_ s a) (-> (Try a) (Operation s a))) (function (_ state) - (try\each (|>> [state]) error))) + (try#each (|>> [state]) error))) (syntax: .public (assertion [exception <code>.any message <code>.any test <code>.any]) (in (list (` (if (~ test) - (\ ..monad (~' in) []) + (# ..monad (~' in) []) (..except (~ exception) (~ message))))))) (def: .public identity |