aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/meta/static.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/meta/static.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/meta/static.lux b/stdlib/source/test/lux/meta/static.lux
index e030d74ac..a7169d6af 100644
--- a/stdlib/source/test/lux/meta/static.lux
+++ b/stdlib/source/test/lux/meta/static.lux
@@ -32,7 +32,7 @@
(with_expansions [<left> (<random>)
<right> (<random>)
<l+r> (<static> (<+> <left> <right>))]
- (case (' <l+r>)
+ (when (' <l+r>)
[_ {<tag> l+r}]
(<=> l+r (<+> <left> <right>))
@@ -47,7 +47,7 @@
(with_expansions [<left> (/.random_frac)
<right> (/.random_frac)
<l+r> (/.frac (f.+ <left> <right>))]
- (case (' <l+r>)
+ (when (' <l+r>)
[_ {.#Frac l+r}]
(or (f.= l+r (f.+ <left> <right>))
(and (f.not_a_number? l+r)
@@ -61,7 +61,7 @@
(with_expansions [<left> (/.random code.text (random.alpha_numeric 1))
<right> (/.random code.text (random.alpha_numeric 1))
<l+r> (/.text (format <left> <right>))]
- (case (' <l+r>)
+ (when (' <l+r>)
[_ {.#Text l+r}]
(text#= l+r (format <left> <right>))
@@ -78,7 +78,7 @@
(with_expansions [<left> (/.random code.text (random.alpha_numeric 1))
<right> (/.random code.text (random.alpha_numeric 1))
<l+r> (/.literal code.text (format <left> <right>))]
- (case (' <l+r>)
+ (when (' <l+r>)
[_ {.#Text l+r}]
(text#= l+r (format <left> <right>))