diff options
| author | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
| commit | b96beb587c11fcfbce86ce2d62351600cf6cad1b (patch) | |
| tree | c9a558ab1391ac97cb11e8777ea78299f1ab5555 /stdlib/source/parser | |
| parent | 104130efba46a875eba566384578f8aa8593ad37 (diff) | |
More traditional names for unquoting macros.
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)))))) |