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.lux | |
parent | f11c10f72d003555d76c9803954e2bd8b347362d (diff) |
- Re-named "lux/meta" to to "lux/macro".
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/new-luxc/source/luxc/lang.lux b/new-luxc/source/luxc/lang.lux index 45a8b1860..4aa47754a 100644 --- a/new-luxc/source/luxc/lang.lux +++ b/new-luxc/source/luxc/lang.lux @@ -8,8 +8,8 @@ [text "text/" Eq<Text>] text/format (coll [list])) - [meta] - (meta ["s" syntax #+ syntax:]) + [macro] + (macro ["s" syntax #+ syntax:]) (lang (type ["tc" check]))) (luxc (lang ["la" analysis]))) @@ -23,13 +23,13 @@ (def: #export (fail message) (All [a] (-> Text (Meta a))) - (do meta;Monad<Meta> - [[file line col] meta;cursor + (do macro;Monad<Meta> + [[file line col] macro;cursor #let [location (format file "," (|> line nat-to-int %i) "," (|> col nat-to-int %i))]] - (meta;fail (format message "\n\n" - "@ " location)))) + (macro;fail (format message "\n\n" + "@ " location)))) (def: #export (throw exception message) (All [a] (-> ex;Exception Text (Meta a))) @@ -37,7 +37,7 @@ (syntax: #export (assert exception message test) (wrap (list (` (if (~ test) - (:: meta;Monad<Meta> (~' wrap) []) + (:: macro;Monad<Meta> (~' wrap) []) (;;throw (~ exception) (~ message))))))) (def: #export (with-type expected action) @@ -77,8 +77,8 @@ (def: #export (infer actualT) (-> Type (Meta Unit)) - (do meta;Monad<Meta> - [expectedT meta;expected-type] + (do macro;Monad<Meta> + [expectedT macro;expected-type] (with-type-env (tc;check expectedT actualT)))) |