diff options
Diffstat (limited to 'stdlib/source/test/lux/data/number/nat.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/number/nat.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/data/number/nat.lux b/stdlib/source/test/lux/data/number/nat.lux index 4c46b4b0c..dda227223 100644 --- a/stdlib/source/test/lux/data/number/nat.lux +++ b/stdlib/source/test/lux/data/number/nat.lux @@ -1,6 +1,6 @@ (.module: [lux #* - data/text/format + ["%" data/text/format (#+ format)] ["_" test (#+ Test)] [abstract [monad (#+ do)] @@ -21,7 +21,7 @@ (def: #export test Test - (<| (_.context (%name (name-of /._))) + (<| (_.context (%.name (name-of /._))) (`` ($_ _.and ($equivalence.spec /.equivalence r.nat) ($order.spec /.order r.nat) @@ -29,13 +29,13 @@ ($enum.spec /.enum r.nat) ($interval.spec /.interval r.nat) (~~ (template [<monoid>] - [(<| (_.context (%name (name-of <monoid>))) + [(<| (_.context (%.name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> r.nat))] [/.addition] [/.multiplication] [/.minimum] [/.maximum] )) (~~ (template [<codec>] - [(<| (_.context (%name (name-of /.binary))) + [(<| (_.context (%.name (name-of /.binary))) ($codec.spec /.equivalence <codec> r.nat))] [/.binary] [/.octal] [/.decimal] [/.hex] |