diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/data/color.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/number/frac.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/number/int.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/number/nat.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/number/ratio.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/number/rev.lux | 4 |
6 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/test/lux/data/color.lux b/stdlib/source/test/lux/data/color.lux index ed69ddf7c..f3db0c6f7 100644 --- a/stdlib/source/test/lux/data/color.lux +++ b/stdlib/source/test/lux/data/color.lux @@ -40,7 +40,7 @@ (def: black (/.from-rgb [0 0 0])) (def: white (/.from-rgb [255 255 255])) -(do-template [<field>] +(template [<field>] [(def: (<field> color) (-> Color Frac) (let [[hue saturation luminance] (/.to-hsl color)] diff --git a/stdlib/source/test/lux/data/number/frac.lux b/stdlib/source/test/lux/data/number/frac.lux index 87b937a93..89ff72749 100644 --- a/stdlib/source/test/lux/data/number/frac.lux +++ b/stdlib/source/test/lux/data/number/frac.lux @@ -25,14 +25,14 @@ ($equivalence.spec /.equivalence gen-frac) ($order.spec /.order gen-frac) ($number.spec /.order /.number gen-frac) - (~~ (do-template [<monoid>] + (~~ (template [<monoid>] [(<| (_.context (%name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> gen-frac))] [/.addition] [/.multiplication] [/.minimum] [/.maximum] )) ## TODO: Uncomment ASAP - ## (~~ (do-template [<codec>] + ## (~~ (template [<codec>] ## [(<| (_.context (%name (name-of /.binary))) ## ($codec.spec /.equivalence <codec> gen-frac))] diff --git a/stdlib/source/test/lux/data/number/int.lux b/stdlib/source/test/lux/data/number/int.lux index b9ed4f856..e11685580 100644 --- a/stdlib/source/test/lux/data/number/int.lux +++ b/stdlib/source/test/lux/data/number/int.lux @@ -28,13 +28,13 @@ ($number.spec /.order /.number (:: r.monad map (i/% +1,000,000) r.int)) ($enum.spec /.enum r.int) ($interval.spec /.interval r.int) - (~~ (do-template [<monoid>] + (~~ (template [<monoid>] [(<| (_.context (%name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> r.int))] [/.addition] [/.multiplication] [/.minimum] [/.maximum] )) - (~~ (do-template [<codec>] + (~~ (template [<codec>] [(<| (_.context (%name (name-of /.binary))) ($codec.spec /.equivalence <codec> r.int))] diff --git a/stdlib/source/test/lux/data/number/nat.lux b/stdlib/source/test/lux/data/number/nat.lux index 17ee0503b..9616e9bd6 100644 --- a/stdlib/source/test/lux/data/number/nat.lux +++ b/stdlib/source/test/lux/data/number/nat.lux @@ -28,13 +28,13 @@ ($number.spec /.order /.number (:: r.monad map (n/% 1,000,000) r.nat)) ($enum.spec /.enum r.nat) ($interval.spec /.interval r.nat) - (~~ (do-template [<monoid>] + (~~ (template [<monoid>] [(<| (_.context (%name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> r.nat))] [/.addition] [/.multiplication] [/.minimum] [/.maximum] )) - (~~ (do-template [<codec>] + (~~ (template [<codec>] [(<| (_.context (%name (name-of /.binary))) ($codec.spec /.equivalence <codec> r.nat))] diff --git a/stdlib/source/test/lux/data/number/ratio.lux b/stdlib/source/test/lux/data/number/ratio.lux index 5b74956c4..c3c67c317 100644 --- a/stdlib/source/test/lux/data/number/ratio.lux +++ b/stdlib/source/test/lux/data/number/ratio.lux @@ -34,7 +34,7 @@ ($equivalence.spec /.equivalence ..ratio) ($order.spec /.order ..ratio) ($number.spec /.order /.number ..ratio) - (~~ (do-template [<monoid>] + (~~ (template [<monoid>] [(<| (_.context (%name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> ..ratio))] diff --git a/stdlib/source/test/lux/data/number/rev.lux b/stdlib/source/test/lux/data/number/rev.lux index dba639ae9..15b98ffe6 100644 --- a/stdlib/source/test/lux/data/number/rev.lux +++ b/stdlib/source/test/lux/data/number/rev.lux @@ -31,13 +31,13 @@ ($order.spec /.order r.rev) ($enum.spec /.enum r.rev) ($interval.spec /.interval r.rev) - (~~ (do-template [<monoid>] + (~~ (template [<monoid>] [(<| (_.context (%name (name-of <monoid>))) ($monoid.spec /.equivalence <monoid> r.rev))] [/.addition] [/.minimum] [/.maximum] )) - (~~ (do-template [<codec>] + (~~ (template [<codec>] [(<| (_.context (%name (name-of /.binary))) ($codec.spec /.equivalence <codec> r.rev))] |