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

---
 .../luxc/lang/translation/procedure/host.jvm.lux   | 40 +++++++++++-----------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/procedure/host.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/procedure/host.jvm.lux b/new-luxc/source/luxc/lang/translation/procedure/host.jvm.lux
index 8a28e3cf7..b020fed7b 100644
--- a/new-luxc/source/luxc/lang/translation/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/procedure/host.jvm.lux
@@ -10,9 +10,9 @@
                    ["l" lexer])
              (coll [list "list/" Functor<List>]
                    [dict #+ Dict]))
-       [meta "meta/" Monad<Meta>]
-       (meta [code]
-             ["s" syntax #+ syntax:])
+       [macro "macro/" Monad<Meta>]
+       (macro [code]
+              ["s" syntax #+ syntax:])
        [host])
   (luxc ["&" lang]
         (lang [";L" host]
@@ -280,7 +280,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Nat level)] [_ (#;Text class)] lengthS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [lengthI (translate lengthS)
        #let [arrayJT ($t;array level (case class
                                        "boolean" $t;boolean
@@ -304,7 +304,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] idxS arrayS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [arrayI (translate arrayS)
        idxI (translate idxS)
        #let [loadI (case class
@@ -330,7 +330,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] idxS valueS arrayS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [arrayI (translate arrayS)
        idxI (translate idxS)
        valueI (translate valueS)
@@ -399,7 +399,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)]))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       []
       (wrap (|>. ($i;string class)
                  ($i;INVOKESTATIC "java.lang.Class" "forName"
@@ -415,7 +415,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] objectS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [objectI (translate objectS)]
       (wrap (|>. objectI
                  ($i;INSTANCEOF class)
@@ -452,7 +452,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] [_ (#;Text field)] [_ (#;Text unboxed)]))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       []
       (case (dict;get unboxed primitives)
         (#;Some primitive)
@@ -479,7 +479,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] [_ (#;Text field)] [_ (#;Text unboxed)] valueS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [valueI (translate valueS)]
       (case (dict;get unboxed primitives)
         (#;Some primitive)
@@ -511,7 +511,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] [_ (#;Text field)] [_ (#;Text unboxed)] objectS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [objectI (translate objectS)]
       (case (dict;get unboxed primitives)
         (#;Some primitive)
@@ -542,7 +542,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list [_ (#;Text class)] [_ (#;Text field)] [_ (#;Text unboxed)] valueS objectS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [valueI (translate valueS)
        objectI (translate objectS)]
       (case (dict;get unboxed primitives)
@@ -605,7 +605,7 @@
     (&;throw Invalid-Syntax-For-JVM-Type argD)
 
     (#e;Success type)
-    (meta/wrap type)))
+    (macro/wrap type)))
 
 (def: (prepare-input inputT inputI)
   (-> $;Type $;Inst $;Inst)
@@ -629,10 +629,10 @@
       (Meta (List [$;Type $;Inst])))
   (case argsS
     #;Nil
-    (meta/wrap #;Nil)
+    (macro/wrap #;Nil)
 
     (^ (list& [_ (#;Tuple (list [_ (#;Text argD)] argS))] tail))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [argT (translate-type argD)
        argI (:: @ map (prepare-input argT) (translate argS))
        =tail (translate-args translate tail)]
@@ -645,10 +645,10 @@
   (-> Text (Meta (Maybe $;Type)))
   (case description
     "void"
-    (meta/wrap #;None)
+    (macro/wrap #;None)
 
     _
-    (meta/map (|>. #;Some) (translate-type description))))
+    (macro/map (|>. #;Some) (translate-type description))))
 
 (def: (prepare-return returnT returnI)
   (-> (Maybe $;Type) $;Inst $;Inst)
@@ -670,7 +670,7 @@
   (case inputs
     (^ (list& [_ (#;Text class)] [_ (#;Text method)]
               [_ (#;Text unboxed)] argsS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [argsTI (translate-args translate argsS)
        returnT (method-return-type unboxed)
        #let [callI (|>. ($i;fuse (list/map product;right argsTI))
@@ -688,7 +688,7 @@
      (case inputs
        (^ (list& [_ (#;Text class)] [_ (#;Text method)]
                  [_ (#;Text unboxed)] objectS argsS))
-       (do meta;Monad<Meta>
+       (do macro;Monad<Meta>
          [objectI (translate objectS)
           argsTI (translate-args translate argsS)
           returnT (method-return-type unboxed)
@@ -712,7 +712,7 @@
   (-> Text @;Proc)
   (case inputs
     (^ (list& [_ (#;Text class)] argsS))
-    (do meta;Monad<Meta>
+    (do macro;Monad<Meta>
       [argsTI (translate-args translate argsS)]
       (wrap (|>. ($i;NEW class)
                  $i;DUP
-- 
cgit v1.2.3