aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/code.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/meta/code.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/meta/code.lux b/stdlib/source/library/lux/meta/code.lux
index 68d5327b1..0bec080e7 100644
--- a/stdlib/source/library/lux/meta/code.lux
+++ b/stdlib/source/library/lux/meta/code.lux
@@ -62,7 +62,7 @@
(Equivalence Code)
(implementation
(def (= x y)
- (case [x y]
+ (when [x y]
(,, (with_template [<tag> <eq>]
[[[_ {<tag> x'}] [_ {<tag> y'}]]
(at <eq> = x' y')]
@@ -88,7 +88,7 @@
(`` (def .public (format ast)
(-> Code Text)
- (case ast
+ (when ast
(,, (with_template [<tag> <struct>]
[[_ {<tag> value}]
(at <struct> encoded value)]
@@ -125,7 +125,7 @@
(-> Code Code Code Code)
(if (at ..equivalence = original ast)
substitute
- (case ast
+ (when ast
(,, (with_template [<tag>]
[[location {<tag> parts}]
[location {<tag> (list#each (replaced original substitute) parts)}]]