- Re-named "Top" to "Any", and "Bottom" to "Nothing".

- Removed some modules that should have been deleted before.

1 files changed, 7 insertions, 7 deletions

diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux
index 03d4de615..9262c3d70 100644
--- a/stdlib/source/lux/data/format/json.lux
+++ b/stdlib/source/lux/data/format/json.lux
@@ -24,7 +24,7 @@
 (do-template [<name> <type>]
   [(type: #export <name> <type>)]
 
-  [Null    Top]
+  [Null    Any]
   [Boolean Bool]
   [Number  Frac]
   [String  Text]
@@ -234,7 +234,7 @@
          _
          (fail ($_ text/compose "JSON value is not " <desc> ".")))))]
 
-  [null    Top #Null    "null"]
+  [null    Any #Null    "null"]
   [boolean Bool #Boolean "boolean"]
   [number  Frac #Number  "number"]
   [string  Text #String  "string"]
@@ -255,7 +255,7 @@
 
    (def: #export (<check> test)
      {#.doc (code.text ($_ text/compose "Ensures a JSON value is a " <desc> "."))}
-     (-> <type> (Reader Top))
+     (-> <type> (Reader Any))
      (do p.Monad<Parser>
        [head any]
        (case head
@@ -395,7 +395,7 @@
   (l.some l.space))
 
 (def: data-sep
-  (l.Lexer [Text Top Text])
+  (l.Lexer [Text Any Text])
   ($_ p.seq space~ (l.this ",") space~))
 
 (def: null~
@@ -467,7 +467,7 @@
         (wrap chars))))
 
 (def: (kv~ json~)
-  (-> (-> Top (l.Lexer JSON)) (l.Lexer [String JSON]))
+  (-> (-> Any (l.Lexer JSON)) (l.Lexer [String JSON]))
   (do p.Monad<Parser>
     [key string~
      _ space~
@@ -478,7 +478,7 @@
 
 (do-template [<name> <type> <open> <close> <elem-parser> <prep>]
   [(def: (<name> json~)
-     (-> (-> Top (l.Lexer JSON)) (l.Lexer <type>))
+     (-> (-> Any (l.Lexer JSON)) (l.Lexer <type>))
      (do p.Monad<Parser>
        [_ (l.this <open>)
         _ space~
@@ -492,7 +492,7 @@
   )
 
 (def: (json~' _)
-  (-> Top (l.Lexer JSON))
+  (-> Any (l.Lexer JSON))
   ($_ p.alt null~ boolean~ number~ string~ (array~ json~') (object~ json~')))
 
 (struct: #export _ (Codec Text JSON)