diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/parser/lux/data/binary.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/parser/lux/meta/type.lux | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/parser/lux/data/binary.lux b/stdlib/source/parser/lux/data/binary.lux index 00c3d3656..5cb5e0e93 100644 --- a/stdlib/source/parser/lux/data/binary.lux +++ b/stdlib/source/parser/lux/data/binary.lux @@ -140,7 +140,7 @@ (with_expansions [<case>+' (template.spliced <case>+)] (case flag (^.with_template [<number> <tag> <parser>] - [<number> (`` (at ! each (|>> {(~~ (template.spliced <tag>))}) <parser>))]) + [<number> (`` (at ! each (|>> {(,, (template.spliced <tag>))}) <parser>))]) (<case>+') _ (//.lifted (exception.except ..invalid_tag [(template.amount [<case>+]) flag])))))])) diff --git a/stdlib/source/parser/lux/meta/type.lux b/stdlib/source/parser/lux/meta/type.lux index 46f89fec7..f1acda29d 100644 --- a/stdlib/source/parser/lux/meta/type.lux +++ b/stdlib/source/parser/lux/meta/type.lux @@ -201,7 +201,7 @@ (let [partialI (|> current_arg (n.* 2) (n.+ funcI)) partial_varI (++ partialI) partial_varL (label partial_varI) - partialC (` ((~ funcL) (~+ (|> (list.indices num_args) + partialC (` ((, funcL) (,* (|> (list.indices num_args) (list#each (|>> (n.* 2) ++ (n.+ funcI) label)) list.reversed))))] (again (++ current_arg) @@ -349,4 +349,4 @@ (|> allT (monad.each ! (function.constant ..parameter)) (local allT)))] - (in (` ((~+ allC)))))) + (in (` ((,* allC)))))) |