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/translation/procedure/common.jvm.lux  | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/procedure/common.jvm.lux
index 3cab88e48..0e17f99a6 100644
--- a/new-luxc/source/luxc/lang/translation/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/procedure/common.jvm.lux
@@ -8,9 +8,9 @@
              text/format
              (coll [list "list/" Functor<List>]
                    [dict #+ Dict]))
-       [meta #+ with-gensyms]
-       (meta [code]
-             ["s" syntax #+ syntax:])
+       [macro #+ with-gensyms]
+       (macro [code]
+              ["s" syntax #+ syntax:])
        [host])
   (luxc ["&" lang]
         (lang [";L" host]
@@ -84,7 +84,7 @@
 (syntax: (arity: [name s;local-symbol] [arity s;nat])
   (with-gensyms [g!proc g!name g!translate g!inputs]
     (do @
-      [g!input+ (monad;seq @ (list;repeat arity (meta;gensym "input")))]
+      [g!input+ (monad;seq @ (list;repeat arity (macro;gensym "input")))]
       (wrap (list (` (def: #export ((~ (code;local-symbol name)) (~ g!proc))
                        (-> (-> (;;Vector (~ (code;nat arity)) $;Inst) $;Inst)
                            (-> Text ;;Proc))
@@ -92,7 +92,7 @@
                          (function [(~ g!translate) (~ g!inputs)]
                            (case (~ g!inputs)
                              (^ (list (~@ g!input+)))
-                             (do meta;Monad<Meta>
+                             (do macro;Monad<Meta>
                                [(~@ (|> g!input+
                                         (list/map (function [g!input]
                                                     (list g!input (` ((~ g!translate) (~ g!input))))))
@@ -100,7 +100,7 @@
                                ((~' wrap) ((~ g!proc) [(~@ g!input+)])))
 
                              (~' _)
-                             (meta;fail (wrong-arity (~ g!name) +1 (list;size (~ g!inputs))))))))))))))
+                             (macro;fail (wrong-arity (~ g!name) +1 (list;size (~ g!inputs))))))))))))))
 
 (arity: nullary +0)
 (arity: unary +1)
@@ -111,7 +111,7 @@
   (-> Variadic (-> Text Proc))
   (function [proc-name]
     (function [translate inputsS]
-      (do meta;Monad<Meta>
+      (do macro;Monad<Meta>
         [inputsI (monad;map @ translate inputsS)]
         (wrap (proc inputsI))))))
 
-- 
cgit v1.2.3