diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/module.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/module.lux | 18 |
1 files changed, 9 insertions, 9 deletions
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)))))) |