From 8a51602b3507a18a5ffae1710ba4e915cf31fe39 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Dec 2017 16:40:15 -0400
Subject: - All analysis procedures have been turned into extensions.

---
 new-luxc/source/luxc/lang/analysis/expression.lux | 8 +++++---
 1 file changed, 5 insertions(+), 3 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 1463e7ec5..d19e98bd8 100644
--- a/new-luxc/source/luxc/lang/analysis/expression.lux
+++ b/new-luxc/source/luxc/lang/analysis/expression.lux
@@ -13,14 +13,14 @@
         (lang ["&." module]
               [".L" host]
               [".L" macro]
+              [".L" extension]
               ["la" analysis]
               (translation [".T" common])))
   (// [".A" common]
       [".A" function]
       [".A" primitive]
       [".A" reference]
-      [".A" structure]
-      [".A" procedure]))
+      [".A" structure]))
 
 (exception: #export Macro-Expression-Must-Have-Single-Expansion)
 (exception: #export Unrecognized-Syntax)
@@ -64,7 +64,9 @@
                (referenceA.analyse-reference reference)
 
                (^ (#.Form (list& [_ (#.Text proc-name)] proc-args)))
-               (procedureA.analyse-procedure analyse eval proc-name proc-args)
+               (do macro.Monad<Meta>
+                 [procedure (extensionL.find-analysis proc-name)]
+                 (procedure analyse eval proc-args))
 
                (^template [<tag> <analyser>]
                  (^ (#.Form (list& [_ (<tag> tag)]
-- 
cgit v1.2.3