aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/extension
diff options
context:
space:
mode:
authorEduardo Julian2018-07-21 22:58:54 -0400
committerEduardo Julian2018-07-21 22:58:54 -0400
commit2746f1a2d7606e3295e12e9c2e6833663658ffa8 (patch)
treeab578e1caf50a57d65c514b173be57311459786c /new-luxc/source/luxc/lang/extension
parent7061c56c7b038a633389c35eccb4a2cfef5098d0 (diff)
Re-named "Symbol" to "Identifier".
Diffstat (limited to 'new-luxc/source/luxc/lang/extension')
-rw-r--r--new-luxc/source/luxc/lang/extension/statement.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/extension/statement.lux b/new-luxc/source/luxc/lang/extension/statement.lux
index 9b7b9da52..7ee6b898d 100644
--- a/new-luxc/source/luxc/lang/extension/statement.lux
+++ b/new-luxc/source/luxc/lang/extension/statement.lux
@@ -54,7 +54,7 @@
(def: (ensure-valid-alias def-name annotations value)
(-> Text Code Code (Meta Any))
(case [annotations value]
- (^multi [[_ (#.Record pairs)] [_ (#.Symbol _)]]
+ (^multi [[_ (#.Record pairs)] [_ (#.Identifier _)]]
(|> pairs list.size (n/= +1)))
(:: macro.Monad<Meta> wrap [])
@@ -65,13 +65,13 @@
(-> Text //.Statement)
(function (_ inputsC+)
(case inputsC+
- (^ (list [_ (#.Symbol ["" def-name])] valueC annotationsC))
+ (^ (list [_ (#.Identifier ["" def-name])] valueC annotationsC))
(hostL.with-context def-name
(lang.with-fresh-type-env
(do macro.Monad<Meta>
[syntheses //.all-syntheses
[annotationsI annotationsV] (process-annotations syntheses annotationsC)]
- (case (macro.get-symbol-ann (ident-for #.alias) annotationsV)
+ (case (macro.get-identifier-ann (ident-for #.alias) annotationsV)
(#.Some real-def)
(do @
[_ (ensure-valid-alias def-name annotationsV valueC)
@@ -103,7 +103,7 @@
(-> Text //.Statement)
(function (_ inputsC+)
(case inputsC+
- (^ (list [_ (#.Symbol ["" args])] programC))
+ (^ (list [_ (#.Identifier ["" args])] programC))
(do macro.Monad<Meta>
[[_ programA] (<| lang.with-scope
(scopeL.with-local [args (type (List Text))])