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/expression.lux | 28 +++++++++++++----------
 1 file changed, 16 insertions(+), 12 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/analysis/expression.lux b/new-luxc/source/luxc/lang/analysis/expression.lux
index 5d38f7626..89fb3b93e 100644
--- a/new-luxc/source/luxc/lang/analysis/expression.lux
+++ b/new-luxc/source/luxc/lang/analysis/expression.lux
@@ -29,14 +29,14 @@
 (def: #export (analyser eval)
   (-> &;Eval &;Analyser)
   (: (-> Code (Meta la;Analysis))
-     (function analyse [ast]
+     (function analyse [code]
        (do macro;Monad<Meta>
          [expectedT macro;expected-type]
-         (let [[cursor ast'] ast]
+         (let [[cursor code'] code]
            ## The cursor must be set in the compiler for the sake
            ## of having useful error messages.
            (&;with-cursor cursor
-             (case ast'
+             (case code'
                (^template [<tag> <analyser>]
                  (<tag> value)
                  (<analyser> value))
@@ -83,16 +83,18 @@
                
                (^ (#;Form (list& func args)))
                (do macro;Monad<Meta>
-                 [[funcT =func] (commonA;with-unknown-type
+                 [[funcT funcA] (commonA;with-unknown-type
                                   (analyse func))]
-                 (case =func
+                 (case funcA
                    [_ (#;Symbol def-name)]
                    (do @
-                     [[def-type def-anns def-value] (macro;find-def def-name)]
-                     (if (macro;macro? def-anns)
+                     [?macro (&;with-error-tracking
+                               (macro;find-macro def-name))]
+                     (case ?macro
+                       (#;Some macro)
                        (do @
                          [expansion (function [compiler]
-                                      (case (macroL;expand (:! Macro def-value) args compiler)
+                                      (case (macroL;expand macro args compiler)
                                         (#e;Success [compiler' output])
                                         (#e;Success [compiler' output])
 
@@ -103,12 +105,14 @@
                            (analyse single)
 
                            _
-                           (&;throw Macro-Expression-Must-Have-Single-Expansion (%code ast))))
-                       (functionA;analyse-apply analyse funcT =func args)))
+                           (&;throw Macro-Expression-Must-Have-Single-Expansion (%code code))))
+
+                       _
+                       (functionA;analyse-apply analyse funcT funcA args)))
 
                    _
-                   (functionA;analyse-apply analyse funcT =func args)))
+                   (functionA;analyse-apply analyse funcT funcA args)))
 
                _
-               (&;throw Unrecognized-Syntax (%code ast))
+               (&;throw Unrecognized-Syntax (%code code))
                )))))))
-- 
cgit v1.2.3