Re-named "Symbol" to "Identifier".

1 files changed, 27 insertions, 27 deletions

diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux
index b9b1a22c2..fb0e9171a 100644
--- a/stdlib/source/lux/concurrency/actor.lux
+++ b/stdlib/source/lux/concurrency/actor.lux
@@ -171,8 +171,8 @@
 
 (def: actor-decl^
   (Syntax [Text (List Text)])
-  (p.either (s.form (p.seq s.local-symbol (p.some s.local-symbol)))
-            (p.seq s.local-symbol (:: p.Monad<Parser> wrap (list)))))
+  (p.either (s.form (p.seq s.local-identifier (p.some s.local-identifier)))
+            (p.seq s.local-identifier (:: p.Monad<Parser> wrap (list)))))
 
 (do-template [<name> <desc>]
   [(def: #export <name>
@@ -195,8 +195,8 @@
 
 (def: behavior^
   (s.Syntax BehaviorC)
-  (let [handle-args ($_ p.seq s.local-symbol s.local-symbol s.local-symbol)
-        stop-args ($_ p.seq s.local-symbol s.local-symbol)]
+  (let [handle-args ($_ p.seq s.local-identifier s.local-identifier s.local-identifier)
+        stop-args ($_ p.seq s.local-identifier s.local-identifier)]
     (p.seq (p.maybe (s.form (p.seq (s.form (p.after (s.this (' handle)) handle-args))
                                    s.any)))
            (p.maybe (s.form (p.seq (s.form (p.after (s.this (' stop)) stop-args))
@@ -230,11 +230,11 @@
   (with-gensyms [g!_ g!init]
     (do @
       [module macro.current-module-name
-       #let [g!type (code.local-symbol (state-name _name))
-             g!behavior (code.local-symbol (behavior-name _name))
-             g!actor (code.local-symbol _name)
-             g!new (code.local-symbol (new-name _name))
-             g!vars (list/map code.local-symbol _vars)]]
+       #let [g!type (code.local-identifier (state-name _name))
+             g!behavior (code.local-identifier (behavior-name _name))
+             g!actor (code.local-identifier _name)
+             g!new (code.local-identifier (new-name _name))
+             g!vars (list/map code.local-identifier _vars)]]
       (wrap (list (` (type: (~+ (csw.export export)) ((~ g!type) (~+ g!vars))
                        (~ state-type)))
                   (` (type: (~+ (csw.export export)) ((~ g!actor) (~+ g!vars))
@@ -251,9 +251,9 @@
 
                                        (#.Some [[messageN stateN selfN] bodyC])
                                        (` (function ((~ g!_)
-                                                     (~ (code.local-symbol messageN))
-                                                     (~ (code.local-symbol stateN))
-                                                     (~ (code.local-symbol selfN)))
+                                                     (~ (code.local-identifier messageN))
+                                                     (~ (code.local-identifier stateN))
+                                                     (~ (code.local-identifier selfN)))
                                             (do task.Monad<Task>
                                               []
                                               (~ bodyC))))))
@@ -263,8 +263,8 @@
 
                                     (#.Some [[causeN stateN] bodyC])
                                     (` (function ((~ g!_)
-                                                  (~ (code.local-symbol causeN))
-                                                  (~ (code.local-symbol stateN)))
+                                                  (~ (code.local-identifier causeN))
+                                                  (~ (code.local-identifier stateN)))
                                          (do promise.Monad<Promise>
                                            []
                                            (~ bodyC))))))}))
@@ -285,17 +285,17 @@
 (def: signature^
   (s.Syntax Signature)
   (s.form ($_ p.seq
-              (p.default (list) (s.tuple (p.some s.local-symbol)))
-              s.local-symbol
+              (p.default (list) (s.tuple (p.some s.local-identifier)))
+              s.local-identifier
               (p.some csr.typed-input)
-              s.local-symbol
-              s.local-symbol
+              s.local-identifier
+              s.local-identifier
               s.any)))
 
 (def: reference^
   (s.Syntax [Name (List Text)])
-  (p.either (s.form (p.seq s.symbol (p.some s.local-symbol)))
-            (p.seq s.symbol (:: p.Monad<Parser> wrap (list)))))
+  (p.either (s.form (p.seq s.identifier (p.some s.local-identifier)))
+            (p.seq s.identifier (:: p.Monad<Parser> wrap (list)))))
 
 (syntax: #export (message:
                    {export csr.export}
@@ -322,15 +322,15 @@
       [current-module macro.current-module-name
        actor-name (resolve-actor actor-name)
        #let [message-name [current-module (get@ #name signature)]
-             g!type (code.symbol (product.both id state-name actor-name))
-             g!message (code.local-symbol (get@ #name signature))
-             g!actor-vars (list/map code.local-symbol actor-vars)
-             actorC (` ((~ (code.symbol actor-name)) (~+ g!actor-vars)))
-             g!all-vars (|> (get@ #vars signature) (list/map code.local-symbol) (list/compose g!actor-vars))
+             g!type (code.identifier (product.both id state-name actor-name))
+             g!message (code.local-identifier (get@ #name signature))
+             g!actor-vars (list/map code.local-identifier actor-vars)
+             actorC (` ((~ (code.identifier actor-name)) (~+ g!actor-vars)))
+             g!all-vars (|> (get@ #vars signature) (list/map code.local-identifier) (list/compose g!actor-vars))
              g!inputsC (|> (get@ #inputs signature) (list/map product.left))
              g!inputsT (|> (get@ #inputs signature) (list/map product.right))
-             g!state (|> signature (get@ #state) code.local-symbol)
-             g!self (|> signature (get@ #self) code.local-symbol)
+             g!state (|> signature (get@ #state) code.local-identifier)
+             g!self (|> signature (get@ #self) code.local-identifier)
              g!actor-refs (: (List Code)
                              (if (list.empty? actor-vars)
                                (list)