diff options
author | Eduardo Julian | 2017-11-15 23:22:30 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-15 23:22:30 -0400 |
commit | 190b512a822fefbb9c66271feb189cc6ccebaf85 (patch) | |
tree | 6d317f54649be741c67e03c71a8b6006b83f00ec /new-luxc/source/luxc/lang/translation/statement.jvm.lux | |
parent | f11c10f72d003555d76c9803954e2bd8b347362d (diff) |
- Re-named "lux/meta" to to "lux/macro".
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/statement.jvm.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/lang/translation/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/statement.jvm.lux index 232519d8b..387181f98 100644 --- a/new-luxc/source/luxc/lang/translation/statement.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/statement.jvm.lux @@ -7,7 +7,7 @@ [text "text/" Monoid<Text> Hash<Text>] text/format (coll [list "list/" Functor<List> Fold<List>])) - [meta] + [macro] [host]) (luxc ["&" lang] ["&;" io] @@ -34,8 +34,8 @@ (def: #export (translate-def def-name valueT valueI metaI metaV) (-> Text Type $;Inst $;Inst Code (Meta Unit)) - (do meta;Monad<Meta> - [current-module meta;current-module-name + (do macro;Monad<Meta> + [current-module macro;current-module-name #let [def-ident [current-module def-name] normal-name (format (&;normalize-name def-name) (%n (text/hash def-name))) bytecode-name (format current-module "/" normal-name) @@ -68,13 +68,13 @@ "Error:\n" error)))) _ (&module;define def-ident [valueT metaV valueV]) - _ (if (meta;type? metaV) - (case (meta;declared-tags metaV) + _ (if (macro;type? metaV) + (case (macro;declared-tags metaV) #;Nil (wrap []) tags - (&module;declare-tags tags (meta;export? metaV) (:! Type valueV))) + (&module;declare-tags tags (macro;export? metaV) (:! Type valueV))) (wrap [])) #let [_ (log! (format "DEF " (%ident def-ident)))]] (commonT;record-artifact (format bytecode-name ".class") bytecode))) |