diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/control/parser/tree.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/lux/control/parser/tree.lux b/stdlib/source/lux/control/parser/tree.lux index 50c8c8a0e..3dbc5522d 100644 --- a/stdlib/source/lux/control/parser/tree.lux +++ b/stdlib/source/lux/control/parser/tree.lux @@ -1,9 +1,9 @@ (.module: [lux #* [control + ["." try (#+ Try)] ["." exception (#+ exception:)]] [data - ["." error (#+ Error)] [tree (#+ Tree) ["." zipper (#+ Zipper)]]]] ["." //]) @@ -12,22 +12,22 @@ (//.Parser (Zipper t) a)) (def: #export (run-zipper zipper parser) - (All [t a] (-> (Zipper t) (Parser t a) (Error a))) + (All [t a] (-> (Zipper t) (Parser t a) (Try a))) (case (//.run zipper parser) - (#error.Success [zipper output]) - (#error.Success output) + (#try.Success [zipper output]) + (#try.Success output) - (#error.Failure error) - (#error.Failure error))) + (#try.Failure error) + (#try.Failure error))) (def: #export (run tree parser) - (All [t a] (-> (Tree t) (Parser t a) (Error a))) + (All [t a] (-> (Tree t) (Parser t a) (Try a))) (run-zipper (zipper.zip tree) parser)) (def: #export value (All [t] (Parser t t)) (function (_ zipper) - (#error.Success [zipper (zipper.value zipper)]))) + (#try.Success [zipper (zipper.value zipper)]))) (exception: #export cannot-move-further) @@ -38,7 +38,7 @@ (let [next (<direction> zipper)] (if (is? zipper next) (exception.throw cannot-move-further []) - (#error.Success [next []])))))] + (#try.Success [next []])))))] [up zipper.up] [down zipper.down] |