From bca1a9cdcf837e184378d5e6339a969e40d1dbab Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Sep 2021 01:39:53 -0400
Subject: Re-named "name_of" to "symbol".

---
 stdlib/source/library/lux.lux | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'stdlib/source/library/lux.lux')

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index f3f3601d3..c488444dd 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -4575,13 +4575,13 @@
   (|>> symbol#encoded
        (text#composite "Wrong syntax for ")))
 
-(macro: .public (name_of tokens)
+(macro: .public (symbol tokens)
   (case tokens
     (^ (list [_ {#Identifier [module name]}]))
     (in_meta (list (` [(~ (text$ module)) (~ (text$ name))])))
     
     _
-    (failure (..wrong_syntax_error [..prelude_module "name_of"]))))
+    (failure (..wrong_syntax_error [..prelude_module "symbol"]))))
 
 (def: (scope_type_vars state)
   (Meta (List Nat))
@@ -4605,7 +4605,7 @@
         (failure (text#composite "Indexed-type does not exist: " (nat#encoded idx)))))
 
     _
-    (failure (..wrong_syntax_error (name_of ..$)))))
+    (failure (..wrong_syntax_error (symbol ..$)))))
 
 (def: .public (same? reference sample)
   (All (_ a)
@@ -4621,7 +4621,7 @@
                       branches)))
     
     _
-    (failure (..wrong_syntax_error (name_of ..^@)))))
+    (failure (..wrong_syntax_error (symbol ..^@)))))
 
 (macro: .public (^|> tokens)
   (case tokens
@@ -4633,7 +4633,7 @@
                       branches)))
     
     _
-    (failure (..wrong_syntax_error (name_of ..^|>)))))
+    (failure (..wrong_syntax_error (symbol ..^|>)))))
 
 (macro: .public (:expected tokens)
   (case tokens
@@ -4643,7 +4643,7 @@
       (in (list (` ("lux type as" (~ (type_code type)) (~ expr))))))
     
     _
-    (failure (..wrong_syntax_error (name_of ..:expected)))))
+    (failure (..wrong_syntax_error (symbol ..:expected)))))
 
 (def: location
   (Meta Location)
@@ -4661,7 +4661,7 @@
       (in (list (` (..panic! (~ (text$ message)))))))
     
     _
-    (failure (..wrong_syntax_error (name_of ..undefined)))))
+    (failure (..wrong_syntax_error (symbol ..undefined)))))
 
 (macro: .public (:of tokens)
   (case tokens
@@ -4677,7 +4677,7 @@
                      (..:of (~ g!temp)))))))
 
     _
-    (failure (..wrong_syntax_error (name_of ..:of)))))
+    (failure (..wrong_syntax_error (symbol ..:of)))))
 
 (def: (tupleP tokens)
   (-> (List Code) (Maybe [(List Code) (List Code)]))
@@ -4723,7 +4723,7 @@
                        {.#Left (~ (text$ (..wrong_syntax_error [this_module name])))}))))))
 
     {#None}
-    (failure (..wrong_syntax_error (name_of ..template:)))))
+    (failure (..wrong_syntax_error (symbol ..template:)))))
 
 (macro: .public (as_is tokens compiler)
   {#Right [compiler tokens]})
@@ -4737,7 +4737,7 @@
         [compiler] {#Right})
 
     _
-    {#Left (..wrong_syntax_error (name_of ..char))}))
+    {#Left (..wrong_syntax_error (symbol ..char))}))
 
 (def: target
   (Meta Text)
@@ -4807,7 +4807,7 @@
         (target_pick target options {#None})
 
         {#None}
-        (failure (..wrong_syntax_error (name_of ..for))))
+        (failure (..wrong_syntax_error (symbol ..for))))
       
       (^ (list [_ {#Tuple options}] default))
       (case (pairs' options)
@@ -4815,10 +4815,10 @@
         (target_pick target options {#Some default})
 
         {#None}
-        (failure (..wrong_syntax_error (name_of ..for))))
+        (failure (..wrong_syntax_error (symbol ..for))))
 
       _
-      (failure (..wrong_syntax_error (name_of ..for))))))
+      (failure (..wrong_syntax_error (symbol ..for))))))
 
 (def: (embedded_expansions code)
   (-> Code (Meta [(List [Code Code]) Code]))
@@ -4853,7 +4853,7 @@
                      (~ labelled))))))
 
     _
-    (failure (..wrong_syntax_error (name_of ..``)))))
+    (failure (..wrong_syntax_error (symbol ..``)))))
 
 (def: (name$ [module name])
   (-> Symbol Code)
@@ -4932,7 +4932,7 @@
       (in (list pattern)))
 
     _
-    (failure (..wrong_syntax_error (name_of ..^code)))))
+    (failure (..wrong_syntax_error (symbol ..^code)))))
 
 (def: .public false
   Bit
@@ -4955,7 +4955,7 @@
       (..failure ":let requires an even number of parts"))
 
     _
-    (..failure (..wrong_syntax_error (name_of ..:let)))))
+    (..failure (..wrong_syntax_error (symbol ..:let)))))
 
 (macro: .public (try tokens)
   (case tokens
@@ -4967,7 +4967,7 @@
                       (~ expression)))))))
 
     _
-    (..failure (..wrong_syntax_error (name_of ..try)))))
+    (..failure (..wrong_syntax_error (symbol ..try)))))
 
 (def: (methodP tokens)
   (-> (List Code) (Maybe [(List Code) [Text Code]]))
-- 
cgit v1.2.3