aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/extension
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/extension/statement.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/lang/extension/statement.lux b/new-luxc/source/luxc/lang/extension/statement.lux
index a92995630..9b7b9da52 100644
--- a/new-luxc/source/luxc/lang/extension/statement.lux
+++ b/new-luxc/source/luxc/lang/extension/statement.lux
@@ -49,7 +49,7 @@
(expressionA.analyser evalL.eval annsC)))
annsI (expressionT.translate (expressionS.synthesize syntheses annsA))
annsV (evalT.eval annsI)]
- (wrap [annsI (:! Code annsV)])))
+ (wrap [annsI (:coerce Code annsV)])))
(def: (ensure-valid-alias def-name annotations value)
(-> Text Code Code (Meta Any))
@@ -82,7 +82,7 @@
#.None
(do @
[[_ valueT valueA] (lang.with-scope
- (if (macro.type? (:! Code annotationsV))
+ (if (macro.type? (:coerce Code annotationsV))
(do @
[valueA (lang.with-type Type
(expressionA.analyser evalL.eval valueC))]
@@ -130,7 +130,7 @@
syntheses //.all-syntheses
valueI (expressionT.translate (expressionS.synthesize syntheses valueA))
valueV (evalT.eval valueI)
- _ (<installer> name (:! <type> valueV))]
+ _ (<installer> name (:coerce <type> valueV))]
(wrap []))
_