diff options
Diffstat (limited to 'stdlib/source/library/lux/control/parser')
-rw-r--r-- | stdlib/source/library/lux/control/parser/json.lux | 2 | ||||
-rw-r--r-- | stdlib/source/library/lux/control/parser/text.lux | 6 | ||||
-rw-r--r-- | stdlib/source/library/lux/control/parser/type.lux | 10 |
3 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/library/lux/control/parser/json.lux b/stdlib/source/library/lux/control/parser/json.lux index 133f78332..51c3cc2bf 100644 --- a/stdlib/source/library/lux/control/parser/json.lux +++ b/stdlib/source/library/lux/control/parser/json.lux @@ -159,7 +159,7 @@ dictionary.entries (list\map (function (_ [key value]) (list (#/.String key) value))) - list.concat + list.joined (//.result parser)) (#try.Failure error) (//.failure error) diff --git a/stdlib/source/library/lux/control/parser/text.lux b/stdlib/source/library/lux/control/parser/text.lux index 8d314634c..8ca2af321 100644 --- a/stdlib/source/library/lux/control/parser/text.lux +++ b/stdlib/source/library/lux/control/parser/text.lux @@ -302,7 +302,7 @@ [(def: .public (<name> parser) {#.doc (code.text ($_ /\compose "Yields " <doc_modifier> " characters as a single continuous text (as a slice)."))} (-> (Parser Text) (Parser Text)) - (|> parser <base> (\ //.monad map /.concat)))] + (|> parser <base> (\ //.monad map /.joined)))] [some //.some "some"] [many //.many "many"] @@ -324,7 +324,7 @@ (-> Nat (Parser Text) (Parser Text)) (|> parser (<base> amount) - (\ //.monad map /.concat)))] + (\ //.monad map /.joined)))] [exactly //.exactly "exactly"] [at_most //.at_most "at most"] @@ -347,7 +347,7 @@ (-> Nat Nat (Parser Text) (Parser Text)) (|> parser (//.between minimum additional) - (\ //.monad map /.concat))) + (\ //.monad map /.joined))) (def: .public (between! minimum additional parser) (-> Nat Nat (Parser Slice) (Parser Slice)) diff --git a/stdlib/source/library/lux/control/parser/type.lux b/stdlib/source/library/lux/control/parser/type.lux index aaebfb594..964513f24 100644 --- a/stdlib/source/library/lux/control/parser/type.lux +++ b/stdlib/source/library/lux/control/parser/type.lux @@ -152,7 +152,7 @@ (let [current_id (dictionary.size env) g!var (label current_id)] (case (//.result poly - [(dictionary.put current_id [type g!var] env) + [(dictionary.has current_id [type g!var] env) inputs]) (#try.Failure error) (#try.Failure error) @@ -200,8 +200,8 @@ (let [varL (label (inc funcI))] (recur (inc current_arg) (|> env' - (dictionary.put funcI [headT funcL]) - (dictionary.put (inc funcI) [(#.Parameter (inc funcI)) varL])) + (dictionary.has funcI [headT funcL]) + (dictionary.has (inc funcI) [(#.Parameter (inc funcI)) varL])) (#.Item varL all_varsL))) (let [partialI (|> current_arg (n.* 2) (n.+ funcI)) partial_varI (inc partialI) @@ -211,8 +211,8 @@ list.reversed))))] (recur (inc current_arg) (|> env' - (dictionary.put partialI [.Nothing partialC]) - (dictionary.put partial_varI [(#.Parameter partial_varI) partial_varL])) + (dictionary.has partialI [.Nothing partialC]) + (dictionary.has partial_varI [(#.Parameter partial_varI) partial_varL])) (#.Item partial_varL all_varsL)))) [all_varsL env']))]] (<| (with_env env') |