diff options
| author | Eduardo Julian | 2019-07-26 21:23:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-26 21:23:27 -0400 |
| commit | a0889b2ee76c1ae7a9a5bbe2eec9f051b4f341e4 (patch) | |
| tree | 08df3db7f8fffad6360a476d20db1d40b36c85cb /stdlib/source/test/lux/macro | |
| parent | 78fd01f7e6688448bbd710336d4d7b1c35ae058a (diff) | |
No more "n/"-prefixed functions.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/macro/poly/equivalence.lux | 3 | ||||
| -rw-r--r-- | stdlib/source/test/lux/macro/poly/json.lux | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/stdlib/source/test/lux/macro/poly/equivalence.lux b/stdlib/source/test/lux/macro/poly/equivalence.lux index adf150aee..7b9d0b97c 100644 --- a/stdlib/source/test/lux/macro/poly/equivalence.lux +++ b/stdlib/source/test/lux/macro/poly/equivalence.lux @@ -11,6 +11,7 @@ ["." bit] ["." maybe] [number + ["n" nat] ["i" int]] ["." text] [collection @@ -49,7 +50,7 @@ (def: gen-record (Random Record) (do random.monad - [size (:: @ map (n/% 2) random.nat) + [size (:: @ map (n.% 2) random.nat) #let [gen-int (|> random.int (:: @ map (|>> i.abs (i.% +1,000,000))))]] ($_ random.and random.bit diff --git a/stdlib/source/test/lux/macro/poly/json.lux b/stdlib/source/test/lux/macro/poly/json.lux index 0921cce9e..8a72e0e2b 100644 --- a/stdlib/source/test/lux/macro/poly/json.lux +++ b/stdlib/source/test/lux/macro/poly/json.lux @@ -20,6 +20,7 @@ ["." maybe] ["." text] [number + ["n" nat] ["." frac]] [format [json (#+)]] @@ -89,7 +90,7 @@ (def: gen-record (Random Record) (do r.monad - [size (:: @ map (n/% 2) r.nat)] + [size (:: @ map (n.% 2) r.nat)] ($_ r.and r.bit r.frac |