aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/macro/template.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/macro/template.lux22
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/macro/template.lux b/stdlib/source/library/lux/macro/template.lux
index 247c752c7..d2260f584 100644
--- a/stdlib/source/library/lux/macro/template.lux
+++ b/stdlib/source/library/lux/macro/template.lux
@@ -136,9 +136,9 @@
(.let [parameters_amount (list.size _#parameters)
inputs_amount (list.size inputs)]
(if (nat.= parameters_amount inputs_amount)
- (.let [environment (: Environment
- (|> (list.zipped/2 _#parameters inputs)
- (dictionary.of_list text.hash)))]
+ (.let [environment (is Environment
+ (|> (list.zipped/2 _#parameters inputs)
+ (dictionary.of_list text.hash)))]
{.#Right [compiler (list#each (..applied environment) _#template)]})
(exception.except ..irregular_arguments [parameters_amount inputs_amount]))))))
@@ -156,14 +156,14 @@
body <code>.any])
(do meta.monad
[here_name meta.current_module_name
- expression? (: (Meta Bit)
- (function (_ lux)
- {try.#Success [lux (case (the .#expected lux)
- {.#None}
- false
-
- {.#Some _}
- true)]}))
+ expression? (is (Meta Bit)
+ (function (_ lux)
+ {try.#Success [lux (case (the .#expected lux)
+ {.#None}
+ false
+
+ {.#Some _}
+ true)]}))
g!pop (local.push (list#each (function (_ local)
[[here_name (the #name local)]
(..macro local)])