diff options
author | Eduardo Julian | 2018-05-06 00:45:45 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-05-06 00:45:45 -0400 |
commit | 8787650c4b1641832db9df2c35bc3046e886220e (patch) | |
tree | 8c14799379226aa8452d39d91e9a56896db9187f /new-luxc/source/luxc/lang/module.lux | |
parent | 3c93d7a3aabaa49c67f9a498bc0d70f0af7f09d0 (diff) |
- Updated new-luxc to the latest stdlib changes.
Diffstat (limited to 'new-luxc/source/luxc/lang/module.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/module.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/lang/module.lux b/new-luxc/source/luxc/lang/module.lux index f60a6f462..8e24d0cf4 100644 --- a/new-luxc/source/luxc/lang/module.lux +++ b/new-luxc/source/luxc/lang/module.lux @@ -38,7 +38,7 @@ #.module-state #.Active}) (def: #export (set-annotations annotations) - (-> Code (Meta Unit)) + (-> Code (Meta Top)) (do macro.Monad<Meta> [self-name macro.current-module-name self macro.current-module] @@ -57,7 +57,7 @@ "New annotations: " (%code annotations) "\n"))))) (def: #export (import module) - (-> Text (Meta Unit)) + (-> Text (Meta Top)) (do macro.Monad<Meta> [self macro.current-module-name] (function (_ compiler) @@ -67,7 +67,7 @@ []])))) (def: #export (alias alias module) - (-> Text Text (Meta Unit)) + (-> Text Text (Meta Top)) (do macro.Monad<Meta> [self macro.current-module-name] (function (_ compiler) @@ -87,7 +87,7 @@ (def: #export (define (^@ full-name [module-name def-name]) definition) - (-> Ident Definition (Meta Unit)) + (-> Ident Definition (Meta Top)) (function (_ compiler) (case (&.pl-get module-name (get@ #.modules compiler)) (#.Some module) @@ -128,7 +128,7 @@ (do-template [<flagger> <asker> <tag> <description>] [(def: #export (<flagger> module-name) - (-> Text (Meta Unit)) + (-> Text (Meta Top)) (function (_ compiler) (case (|> compiler (get@ #.modules) (&.pl-get module-name)) (#.Some module) @@ -184,7 +184,7 @@ ) (def: (ensure-undeclared-tags module-name tags) - (-> Text (List Text) (Meta Unit)) + (-> Text (List Text) (Meta Top)) (do macro.Monad<Meta> [bindings (tags-by-module module-name) _ (monad.map @ @@ -200,7 +200,7 @@ (wrap []))) (def: #export (declare-tags tags exported? type) - (-> (List Text) Bool Type (Meta Unit)) + (-> (List Text) Bool Type (Meta Top)) (do macro.Monad<Meta> [current-module macro.current-module-name [type-module type-name] (case type |