aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/parser
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/parser')
-rw-r--r--stdlib/source/parser/lux/data/binary.lux2
-rw-r--r--stdlib/source/parser/lux/meta/type.lux4
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))))))