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/library/lux/data/format/json.lux | |
| parent | 104130efba46a875eba566384578f8aa8593ad37 (diff) | |
More traditional names for unquoting macros.
Diffstat (limited to 'stdlib/source/library/lux/data/format/json.lux')
| -rw-r--r-- | stdlib/source/library/lux/data/format/json.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux index d419ac68f..1af453bb9 100644 --- a/stdlib/source/library/lux/data/format/json.lux +++ b/stdlib/source/library/lux/data/format/json.lux @@ -104,28 +104,28 @@ (^.with_template [<ctor> <input_tag> <output_tag>] [{<input_tag> value} - (` {<output_tag> (~ (<ctor> value))})]) + (` {<output_tag> (, (<ctor> value))})]) ([code.bit ..#Boolean' ..#Boolean] [code.frac ..#Number' ..#Number] [code.text ..#String' ..#String]) {#Array' members} - (` {..#Array ((~! sequence.sequence) (~+ (sequence.list (sequence#each jsonF members))))}) + (` {..#Array ((,! sequence.sequence) (,* (sequence.list (sequence#each jsonF members))))}) {#Object' pairs} - (` {..#Object ((~! dictionary.of_list) - (~! text.hash) - (list (~+ (|> pairs + (` {..#Object ((,! dictionary.of_list) + (,! text.hash) + (list (,* (|> pairs dictionary.entries (list#each (function (_ [key_name value]) - (` [(~ (code.text key_name)) (~ (jsonF value))])))))))}) + (` [(, (code.text key_name)) (, (jsonF value))])))))))}) {#Code' code} code)) (def .public json (syntax (_ [token ..jsonP]) - (in (list (` (is JSON (~ (jsonF token)))))))) + (in (list (` (is JSON (, (jsonF token)))))))) (def .public (fields json) (-> JSON (Try (List String))) |