diff options
| author | Eduardo Julian | 2020-12-23 06:33:44 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-23 06:33:44 -0400 |
| commit | d29e091e98dabb8dfcf816899ada480ecbf7e357 (patch) | |
| tree | a9d34c7fbb700cdb0c1f1226d377150614ce9914 /stdlib/source/test/lux/data/text | |
| parent | cad959345afb8bf0bd1e5eefe6c63f136833b3ce (diff) | |
Refactored "export" common syntax.
Diffstat (limited to 'stdlib/source/test/lux/data/text')
| -rw-r--r-- | stdlib/source/test/lux/data/text/format.lux | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/stdlib/source/test/lux/data/text/format.lux b/stdlib/source/test/lux/data/text/format.lux index a8004f919..cfad7f524 100644 --- a/stdlib/source/test/lux/data/text/format.lux +++ b/stdlib/source/test/lux/data/text/format.lux @@ -31,6 +31,7 @@ ["." date]] [math ["." random (#+ Random) ("#\." monad)] + ["." modulus] ["." modular]] [macro ["." code]] @@ -152,10 +153,10 @@ list (/.list (|>>)))))) (do {! random.monad} - [modulus (random.one (|>> modular.from-int + [modulus (random.one (|>> modulus.modulus try.to-maybe) random.int) - sample (\ ! map (modular.mod modulus) + sample (\ ! map (modular.modular modulus) random.int)] (_.cover [/.mod] (text\= (\ (modular.codec modulus) encode sample) |