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.

---
 stdlib/source/lux/data/format/json.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/lux/data/format/json.lux')

diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux
index 41e5bfe5c..41654d93d 100644
--- a/stdlib/source/lux/data/format/json.lux
+++ b/stdlib/source/lux/data/format/json.lux
@@ -77,23 +77,23 @@
       (^template [<ast-tag> <ctor> <json-tag>]
         [_ (<ast-tag> value)]
         (wrap (list (` (: JSON (<json-tag> (~ (<ctor> value))))))))
-      ([#;BoolS ast;bool            #Boolean]
-       [#;IntS  (|>. int-to-real ast;real) #Number]
-       [#;RealS ast;real            #Number]
-       [#;TextS ast;text            #String])
+      ([#;Bool ast;bool            #Boolean]
+       [#;Int  (|>. int-to-real ast;real) #Number]
+       [#;Real ast;real            #Number]
+       [#;Text ast;text            #String])
 
-      [_ (#;TagS ["" "null"])]
+      [_ (#;Tag ["" "null"])]
       (wrap (list (` (: JSON #Null))))
 
-      [_ (#;TupleS members)]
+      [_ (#;Tuple members)]
       (wrap (list (` (: JSON (#Array (vector (~@ (List/map wrapper members))))))))
 
-      [_ (#;RecordS pairs)]
+      [_ (#;Record pairs)]
       (do Monad<Lux>
         [pairs' (mapM @
                       (function [[slot value]]
                         (case slot
-                          [_ (#;TextS key-name)]
+                          [_ (#;Text key-name)]
                           (wrap (` [(~ (ast;text key-name)) (~ (wrapper value))]))
 
                           _
-- 
cgit v1.2.3