diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/macro/poly/json.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/macro/poly/json.lux b/stdlib/source/lux/macro/poly/json.lux index 44fd4b628..a621f0d20 100644 --- a/stdlib/source/lux/macro/poly/json.lux +++ b/stdlib/source/lux/macro/poly/json.lux @@ -18,7 +18,7 @@ ["." product] [number ["." i64] - ["." nat ("#@." decimal)] + ["n" nat ("#@." decimal)] ["." int] ["." frac ("#@." decimal)]] ["." text ("#@." equivalence) @@ -68,7 +68,7 @@ (do p.monad [high </>.number low </>.number]) - (wrap (n/+ (|> high frac.int .nat (i64.left-shift 32)) + (wrap (n.+ (|> high frac.int .nat (i64.left-shift 32)) (|> low frac.int .nat)))))) (structure: int-codec (codec.Codec JSON Int) @@ -175,7 +175,7 @@ #let [g!_ (code.local-identifier "_______") g!members (|> (list.size g!encoders) list.indices - (list@map (|>> nat@encode code.local-identifier)))]] + (list@map (|>> n@encode code.local-identifier)))]] (wrap (` (: (~ (@JSON//encode inputT)) (function ((~ g!_) [(~+ g!members)]) ((~! /.json) [(~+ (list@map (function (_ [g!member g!encode]) |