aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/json.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/data/format/json.lux7
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux
index aee3310cd..d5eafa15d 100644
--- a/stdlib/source/library/lux/data/format/json.lux
+++ b/stdlib/source/library/lux/data/format/json.lux
@@ -24,6 +24,7 @@
["[0]" dictionary {"+" Dictionary}]]]
[macro
[syntax {"+" syntax:}]
+ ["^" pattern]
["[0]" code]]
[math
[number
@@ -100,7 +101,7 @@
{#Null' _}
(` {..#Null})
- (^template [<ctor> <input_tag> <output_tag>]
+ (^.template [<ctor> <input_tag> <output_tag>]
[{<input_tag> value}
(` {<output_tag> (~ (<ctor> value))})])
([code.bit ..#Boolean' ..#Boolean]
@@ -184,7 +185,7 @@
[{#Null} {#Null}]
#1
- (^template [<tag> <struct>]
+ (^.template [<tag> <struct>]
[[{<tag> x'} {<tag> y'}]
(# <struct> = x' y')])
([#Boolean bit.equivalence]
@@ -290,7 +291,7 @@
(def: .public (format json)
(-> JSON Text)
(case json
- (^template [<tag> <format>]
+ (^.template [<tag> <format>]
[{<tag> value}
(<format> value)])
([#Null ..null_format]