diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/math/random.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/math/random.lux b/stdlib/source/lux/math/random.lux index c9c91408a..47ddb7fa2 100644 --- a/stdlib/source/lux/math/random.lux +++ b/stdlib/source/lux/math/random.lux @@ -99,7 +99,7 @@ (i64.left-shift 32) ("lux i64 +" right))]))) -(do-template [<name> <type> <cast>] +(template [<name> <type> <cast>] [(def: #export <name> (Random <type>) (:: ..monad map <cast> ..i64))] @@ -146,7 +146,7 @@ xs (text char-gen (dec size))] (wrap (text;compose (text.from-code x) xs))))) -(do-template [<name> <set>] +(template [<name> <set>] [(def: #export <name> (-> Nat (Random Text)) (text (char <set>)))] @@ -158,7 +158,7 @@ [ascii/lower-alpha unicode.ascii/lower-alpha] ) -(do-template [<name> <type> <ctor> <gen>] +(template [<name> <type> <ctor> <gen>] [(def: #export <name> (Random <type>) (do ..monad @@ -217,7 +217,7 @@ (wrap (#.Some value))) (wrap #.None)))) -(do-template [<name> <type> <zero> <plus>] +(template [<name> <type> <zero> <plus>] [(def: #export (<name> size value-gen) (All [a] (-> Nat (Random a) (Random (<type> a)))) (if (n/> 0 size) @@ -231,7 +231,7 @@ [row Row row.empty row.add] ) -(do-template [<name> <type> <ctor>] +(template [<name> <type> <ctor>] [(def: #export (<name> size value-gen) (All [a] (-> Nat (Random a) (Random (<type> a)))) (do ..monad |