From 2746f1a2d7606e3295e12e9c2e6833663658ffa8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 21 Jul 2018 22:58:54 -0400
Subject: Re-named "Symbol" to "Identifier".

---
 new-luxc/source/luxc/lang/extension/statement.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'new-luxc/source/luxc/lang/extension')

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))])
-- 
cgit v1.2.3