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".

---
 .../source/luxc/lang/analysis/procedure/common.lux | 24 +++++++++++-----------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/analysis/procedure/common.lux b/new-luxc/source/luxc/lang/analysis/procedure/common.lux
index a394c554c..747e9f61d 100644
--- a/new-luxc/source/luxc/lang/analysis/procedure/common.lux
+++ b/new-luxc/source/luxc/lang/analysis/procedure/common.lux
@@ -8,8 +8,8 @@
              (coll [list "list/" Functor<List>]
                    [array]
                    [dict #+ Dict]))
-       [meta]
-       (meta [code])
+       [macro]
+       (macro [code])
        (lang (type ["tc" check]))
        [io])
   (luxc ["&" lang]
@@ -52,7 +52,7 @@
     (function [analyse eval args]
       (let [num-actual (list;size args)]
         (if (n.= num-expected num-actual)
-          (do meta;Monad<Meta>
+          (do macro;Monad<Meta>
             [_ (&;infer outputT)
              argsA (monad;map @
                               (function [[argT argC]]
@@ -83,7 +83,7 @@
 (def: (lux-is proc)
   (-> Text Proc)
   (function [analyse eval args]
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [[var-id varT] (&;with-type-env tc;var)]
       ((binary varT varT Bool proc)
        analyse eval args))))
@@ -95,7 +95,7 @@
   (function [analyse eval args]
     (case args
       (^ (list opC))
-      (do meta;Monad<Meta>
+      (do macro;Monad<Meta>
         [[var-id varT] (&;with-type-env tc;var)
          _ (&;infer (type (Either Text varT)))
          opA (&;with-type (type (io;IO varT))
@@ -146,7 +146,7 @@
   (function [analyse eval args]
     (case args
       (^ (list valueC))
-      (do meta;Monad<Meta>
+      (do macro;Monad<Meta>
         [_ (&;infer (type Type))
          valueA (&;with-type Type
                   (analyse valueC))]
@@ -278,7 +278,7 @@
 (def: (array-get proc)
   (-> Text Proc)
   (function [analyse eval args]
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [[var-id varT] (&;with-type-env tc;var)]
       ((binary Nat (type (Array varT)) varT proc)
        analyse eval args))))
@@ -286,7 +286,7 @@
 (def: (array-put proc)
   (-> Text Proc)
   (function [analyse eval args]
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [[var-id varT] (&;with-type-env tc;var)]
       ((trinary Nat varT (type (Array varT)) (type (Array varT)) proc)
        analyse eval args))))
@@ -294,7 +294,7 @@
 (def: (array-remove proc)
   (-> Text Proc)
   (function [analyse eval args]
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [[var-id varT] (&;with-type-env tc;var)]
       ((binary Nat (type (Array varT)) (type (Array varT)) proc)
        analyse eval args))))
@@ -339,7 +339,7 @@
   (function [analyse eval args]
     (case args
       (^ (list initC))
-      (do meta;Monad<Meta>
+      (do macro;Monad<Meta>
         [[var-id varT] (&;with-type-env tc;var)
          _ (&;infer (type (Atom varT)))
          initA (&;with-type varT
@@ -352,7 +352,7 @@
 (def: (atom-read proc)
   (-> Text Proc)
   (function [analyse eval args]
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [[var-id varT] (&;with-type-env tc;var)]
       ((unary (type (Atom varT)) varT proc)
        analyse eval args))))
@@ -360,7 +360,7 @@
 (def: (atom-compare-and-swap proc)
   (-> Text Proc)
   (function [analyse eval args]
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [[var-id varT] (&;with-type-env tc;var)]
       ((trinary varT varT (type (Atom varT)) Bool proc)
        analyse eval args))))
-- 
cgit v1.2.3