From 190b512a822fefbb9c66271feb189cc6ccebaf85 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 15 Nov 2017 23:22:30 -0400
Subject: - Re-named "lux/meta" to to "lux/macro".

---
 new-luxc/source/luxc/lang/module.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/module.lux b/new-luxc/source/luxc/lang/module.lux
index fba337cc3..2b855d927 100644
--- a/new-luxc/source/luxc/lang/module.lux
+++ b/new-luxc/source/luxc/lang/module.lux
@@ -6,8 +6,8 @@
              text/format
              ["e" error]
              (coll [list "list/" Fold<List> Functor<List>]))
-       [meta]
-       (meta [code]))
+       [macro]
+       (macro [code]))
   (luxc ["&" lang]
         (lang ["&;" scope])))
 
@@ -61,11 +61,11 @@
 
 (def: #export (with-module hash name action)
   (All [a] (-> Nat Text (Meta a) (Meta [Module a])))
-  (do meta;Monad<Meta>
+  (do macro;Monad<Meta>
     [_ (create hash name)
      output (&;with-current-module name
               (&scope;with-scope name action))
-     module (meta;find-module name)]
+     module (macro;find-module name)]
     (wrap [module output])))
 
 (do-template [<flagger> <asker> <tag>]
@@ -114,7 +114,7 @@
          (#e;Success [compiler (get@ <tag> module)])
 
          #;None
-         (meta;run compiler (&;throw Unknown-Module module-name)))
+         (macro;run compiler (&;throw Unknown-Module module-name)))
        ))]
 
   [tags-by-module  #;tags        (List [Text [Nat (List Ident) Bool Type]])]
@@ -124,7 +124,7 @@
 
 (def: (ensure-undeclared-tags module-name tags)
   (-> Text (List Text) (Meta Unit))
-  (do meta;Monad<Meta>
+  (do macro;Monad<Meta>
     [bindings (tags-by-module module-name)
      _ (monad;map @
                   (function [tag]
@@ -140,8 +140,8 @@
 
 (def: #export (declare-tags tags exported? type)
   (-> (List Text) Bool Type (Meta Unit))
-  (do meta;Monad<Meta>
-    [current-module meta;current-module-name
+  (do macro;Monad<Meta>
+    [current-module macro;current-module-name
      [type-module type-name] (case type
                                (#;Named type-ident _)
                                (wrap type-ident)
@@ -170,4 +170,4 @@
                                 compiler)
                        []]))
         #;None
-        (meta;run compiler (&;throw Unknown-Module current-module))))))
+        (macro;run compiler (&;throw Unknown-Module current-module))))))
-- 
cgit v1.2.3