aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/static.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/static.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/static.lux b/stdlib/source/library/lux/static.lux
index 5f4560e52..375664915 100644
--- a/stdlib/source/library/lux/static.lux
+++ b/stdlib/source/library/lux/static.lux
@@ -44,7 +44,7 @@
expression <code>.any])
(do meta.monad
[pair (meta.eval (.type_literal <type>)
- (` [(~ format) (~ expression)]))
+ (` [(, format) (, expression)]))
.let [[format expression] (as <type> pair)]]
(in (list (format expression)))))))
@@ -56,7 +56,7 @@
expression <code>.any])
(do meta.monad
[pair (meta.eval (.type_literal <type>)
- (` [(~ format) (~ expression)]))
+ (` [(, format) (, expression)]))
.let [[format expression] (as <type> pair)]]
(in (list#each format expression))))))
@@ -88,7 +88,7 @@
random <code>.any])
(do meta.monad
[pair (meta.eval (type_literal <type>)
- (` [(~ format) (~ random)]))
+ (` [(, format) (, random)]))
.let [[format random] (as <type> pair)]
seed meta.seed
.let [[_ result] (random.result (random.pcg_32 [..pcg_32_magic_inc seed])
@@ -103,7 +103,7 @@
random <code>.any])
(do meta.monad
[pair (meta.eval (type_literal <type>)
- (` [(~ format) (~ random)]))
+ (` [(, format) (, random)]))
.let [[format random] (as <type> pair)]
seed meta.seed
.let [[_ result] (random.result (random.pcg_32 [..pcg_32_magic_inc seed])
@@ -124,9 +124,9 @@
(syntax (_ [test,then/* (<>.some (<>.and <code>.any <code>.any))
else <code>.any])
(in (list (list#mix (function (_ [test then] else)
- (` (..if (~ test)
- (~ then)
- (~ else))))
+ (` (..if (, test)
+ (, then)
+ (, else))))
else
(list.reversed test,then/*))))))