From 3eabc421e559e7e2f903e06eb6b47a2ee0cd25b9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 20 Nov 2017 21:46:49 -0400
Subject: - Added parallel compilation. - Added aliasing. - Several bug fixes.
 - Some minor refactoring.

---
 new-luxc/source/luxc/lang/analysis/reference.lux | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/lang/analysis/reference.lux')

diff --git a/new-luxc/source/luxc/lang/analysis/reference.lux b/new-luxc/source/luxc/lang/analysis/reference.lux
index 25b33881c..7475f269f 100644
--- a/new-luxc/source/luxc/lang/analysis/reference.lux
+++ b/new-luxc/source/luxc/lang/analysis/reference.lux
@@ -13,9 +13,16 @@
 (def: (analyse-definition def-name)
   (-> Ident (Meta Analysis))
   (do macro;Monad<Meta>
-    [actualT (macro;find-def-type def-name)
-     _ (&;infer actualT)]
-    (wrap (code;symbol def-name))))
+    [[actualT def-anns _] (&;with-error-tracking
+                            (macro;find-def def-name))]
+    (case (macro;get-symbol-ann (ident-for #;alias) def-anns)
+      (#;Some real-def-name)
+      (analyse-definition real-def-name)
+
+      _
+      (do @
+        [_ (&;infer actualT)]
+        (wrap (code;symbol def-name))))))
 
 (def: (analyse-variable var-name)
   (-> Text (Meta (Maybe Analysis)))
-- 
cgit v1.2.3