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/analyser.lux | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

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

diff --git a/new-luxc/source/luxc/analyser.lux b/new-luxc/source/luxc/analyser.lux
index 2a77d8bb5..7de7bab57 100644
--- a/new-luxc/source/luxc/analyser.lux
+++ b/new-luxc/source/luxc/analyser.lux
@@ -26,38 +26,38 @@
     (^template [<tag> <analyser>]
       [cursor (<tag> value)]
       (<analyser> cursor value))
-    ([#;BoolS &&lux;analyse-bool]
-     [#;NatS  &&lux;analyse-nat]
-     [#;IntS  &&lux;analyse-int]
-     [#;DegS  &&lux;analyse-deg]
-     [#;RealS &&lux;analyse-real]
-     [#;CharS &&lux;analyse-char]
-     [#;TextS &&lux;analyse-text])
+    ([#;Bool &&lux;analyse-bool]
+     [#;Nat  &&lux;analyse-nat]
+     [#;Int  &&lux;analyse-int]
+     [#;Deg  &&lux;analyse-deg]
+     [#;Real &&lux;analyse-real]
+     [#;Char &&lux;analyse-char]
+     [#;Text &&lux;analyse-text])
 
-    (^ [cursor (#;TupleS (list))])
+    (^ [cursor (#;Tuple (list))])
     (&&lux;analyse-unit cursor)
 
-    (^ [cursor (#;TupleS (list singleton))])
+    (^ [cursor (#;Tuple (list singleton))])
     (analyse eval singleton)
 
-    (^ [cursor (#;TupleS elems)])
+    (^ [cursor (#;Tuple elems)])
     (&&lux;analyse-tuple (analyse eval) cursor elems)
 
-    [cursor (#;SymbolS reference)]
+    [cursor (#;Symbol reference)]
     (&&lux;analyse-reference cursor reference)
 
-    (^ [cursor (#;FormS (list [_ (#;SymbolS ["" "_lux_check"])]
-                              type
-                              value))])
+    (^ [cursor (#;Form (list [_ (#;Symbol ["" "_lux_check"])]
+                             type
+                             value))])
     (&&lux;analyse-check analyse eval cursor type value)
 
-    (^ [cursor (#;FormS (list [_ (#;SymbolS ["" "_lux_coerce"])]
-                              type
-                              value))])
+    (^ [cursor (#;Form (list [_ (#;Symbol ["" "_lux_coerce"])]
+                             type
+                             value))])
     (&&lux;analyse-coerce analyse eval cursor type value)
 
-    (^ [cursor (#;FormS (list [_ (#;NatS tag)]
-                              value))])
+    (^ [cursor (#;Form (list [_ (#;Nat tag)]
+                             value))])
     (&&lux;analyse-variant (analyse eval) cursor tag value)
 
     _
-- 
cgit v1.2.3