aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/analysis/primitive.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/analysis/primitive.lux8
1 files changed, 2 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/lang/analysis/primitive.lux b/new-luxc/source/luxc/lang/analysis/primitive.lux
index c7f7243fd..bb1762f46 100644
--- a/new-luxc/source/luxc/lang/analysis/primitive.lux
+++ b/new-luxc/source/luxc/lang/analysis/primitive.lux
@@ -12,9 +12,7 @@
[(def: #export (<name> value)
(-> <type> (Meta Analysis))
(do meta;Monad<Meta>
- [expected meta;expected-type
- _ (&;with-type-env
- (tc;check expected <type>))]
+ [_ (&;infer <type>)]
(wrap (<tag> value))))]
[analyse-bool Bool code;bool]
@@ -28,7 +26,5 @@
(def: #export analyse-unit
(Meta Analysis)
(do meta;Monad<Meta>
- [expected meta;expected-type
- _ (&;with-type-env
- (tc;check expected Unit))]
+ [_ (&;infer Unit)]
(wrap (` []))))