aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/macro/pattern.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-07-28 02:44:45 -0400
committerEduardo Julian2022-07-28 02:44:45 -0400
commita4847190df926d35f7ece97da50a2a8b1462a24f (patch)
treed368c52b41425631c3962d3c238e6c3c9c797ad6 /stdlib/source/library/lux/meta/macro/pattern.lux
parentebfe1bbbe543299f8691e4862fbc899637ff8cfd (diff)
Now statically resolving values from globals in pattern-matching.
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/meta/macro/pattern.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/meta/macro/pattern.lux b/stdlib/source/library/lux/meta/macro/pattern.lux
index 367c77bd4..b639259ba 100644
--- a/stdlib/source/library/lux/meta/macro/pattern.lux
+++ b/stdlib/source/library/lux/meta/macro/pattern.lux
@@ -144,10 +144,10 @@
(.let [inner_pattern_body (list#mix (function (_ [calculation pattern] success)
(.let [bind? (case pattern
[_ {.#Symbol _}]
- #1
+ true
_
- #0)]
+ false)]
(.` (case (., calculation)
(., pattern)
(., success)
@@ -169,10 +169,10 @@
[mlc (multiP levels)
.let [initial_bind? (case mlc
[[_ {.#Symbol _}] _]
- #1
+ true
_
- #0)]
+ false)]
expected ..expected_type]
(in (list g!temp
(.` ({{.#Some (., g!temp)}