aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/analysis/primitive.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-11-13 23:26:06 -0400
committerEduardo Julian2017-11-13 23:26:06 -0400
commit70005a6dee1eba3e3f5694aa4903e95988dcaa3d (patch)
tree19141f900847092c3aa5032a62b6b97eb1ea9a33 /new-luxc/source/luxc/lang/analysis/primitive.lux
parentb08f7d83a591be770af64b4c9ccd59f3306689e8 (diff)
- Refactoring.
- Now giving type checking/inference a higher priority. - Better error messages.
Diffstat (limited to 'new-luxc/source/luxc/lang/analysis/primitive.lux')
-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 (` []))))