From c700bb87641d37b2db9f31cd8db157fce170f866 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 3 May 2017 23:51:16 -0400
Subject: - Removed the "S" suffix from AST tags.

---
 new-luxc/source/luxc/parser.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'new-luxc/source/luxc/parser.lux')

diff --git a/new-luxc/source/luxc/parser.lux b/new-luxc/source/luxc/parser.lux
index 6565ba65f..0115d1924 100644
--- a/new-luxc/source/luxc/parser.lux
+++ b/new-luxc/source/luxc/parser.lux
@@ -219,20 +219,20 @@
          (wrap [(update@ #;column (n.+ (text;size chunk)) where)
                 [where (<tag> value)]]))))]
 
-  [parse-bool #;BoolS
+  [parse-bool #;Bool
    (l;either (l;text "true") (l;text "false"))
    bool;Codec<Text,Bool>]
   
-  [parse-nat #;NatS
+  [parse-nat #;Nat
    (l;seq' (l;text "+") (l;many' l;digit))
    number;Codec<Text,Nat>]
   
-  [parse-int #;IntS
+  [parse-int #;Int
    (l;seq' (l;default "" (l;text "-"))
            (l;many' l;digit))
    number;Codec<Text,Int>]
   
-  [parse-real #;RealS
+  [parse-real #;Real
    ($_ l;seq'
        (l;default "" (l;text "-"))
        (l;many' l;digit)
@@ -240,7 +240,7 @@
        (l;many' l;digit))
    number;Codec<Text,Real>]
   
-  [parse-deg #;DegS
+  [parse-deg #;Deg
    (l;seq' (l;text ".")
            (l;many' l;digit))
    number;Codec<Text,Deg>]
@@ -254,7 +254,7 @@
     [[chunk value] (l;enclosed ["#\"" "\""]
                                raw-char^)]
     (wrap [(update@ #;column (|>. ($_ n.+ +3 (text;size chunk))) where)
-           [where (#;CharS value)]])))
+           [where (#;Char value)]])))
 
 ## This parser looks so complex because text in Lux can be multi-line
 ## and there are rules regarding how this is handled.
@@ -342,7 +342,7 @@
                                                     (set@ #;column +0))
                                                 true)))))]
     (wrap [where'
-           [where (#;TextS text-read)]])))
+           [where (#;Text text-read)]])))
 
 ## Form and tuple syntax is mostly the same, differing only in the
 ## delimiters involved.
@@ -374,8 +374,8 @@
        (wrap [where'
               [where (<tag> elems)]])))]
 
-  [parse-form   #;FormS   "(" ")"]
-  [parse-tuple  #;TupleS  "[" "]"]
+  [parse-form   #;Form   "(" ")"]
+  [parse-tuple  #;Tuple  "[" "]"]
   )
 
 ## Records are almost (syntactically) the same as forms and tuples,
@@ -407,7 +407,7 @@
                                   (wrap [(update@ #;column n.inc where')
                                          (V;to-list elems)]))))]
     (wrap [where'
-           [where (#;RecordS elems)]])))
+           [where (#;Record elems)]])))
 
 ## The parts of an identifier are separated by a single mark.
 ## E.g. module;name.
@@ -504,8 +504,8 @@
        (wrap [(update@ #;column (|>. ($_ n.+ <extra> length)) where)
               [where (<tag> value)]])))]
 
-  [parse-symbol #;SymbolS ident^                         +0]
-  [parse-tag    #;TagS    (l;after (l;char #"#") ident^) +1]
+  [parse-symbol #;Symbol ident^                         +0]
+  [parse-tag    #;Tag    (l;after (l;char #"#") ident^) +1]
   )
 
 (def: (parse-ast where)
-- 
cgit v1.2.3