From 14e96f5e5dad439383d63e60a52169cc2e7aaa5c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 20 May 2018 21:04:03 -0400
Subject: - Re-named "Top" to "Any", and "Bottom" to "Nothing". - Removed some
 modules that should have been deleted before.

---
 new-luxc/source/luxc/lang/extension/analysis/common.lux   | 10 +++++-----
 new-luxc/source/luxc/lang/extension/analysis/host.jvm.lux | 10 +++++-----
 new-luxc/source/luxc/lang/extension/statement.lux         |  6 +++---
 3 files changed, 13 insertions(+), 13 deletions(-)

(limited to 'new-luxc/source/luxc/lang/extension')

diff --git a/new-luxc/source/luxc/lang/extension/analysis/common.lux b/new-luxc/source/luxc/lang/extension/analysis/common.lux
index 9f2ac5aa8..f22cdcdd1 100644
--- a/new-luxc/source/luxc/lang/extension/analysis/common.lux
+++ b/new-luxc/source/luxc/lang/extension/analysis/common.lux
@@ -191,9 +191,9 @@
   Bundle
   (<| (prefix "io")
       (|> (dict.new text.Hash<Text>)
-          (install "log" (unary Text Top))
-          (install "error" (unary Text Bottom))
-          (install "exit" (unary Int Bottom))
+          (install "log" (unary Text Any))
+          (install "error" (unary Text Nothing))
+          (install "exit" (unary Int Nothing))
           (install "current-time" (nullary Int)))))
 
 (def: bit-procs
@@ -410,7 +410,7 @@
     (do macro.Monad<Meta>
       [[thread-id threadT] (&.with-type-env tc.var)
        [var-id varT] (&.with-type-env tc.var)]
-      ((binary varT (type (Box threadT varT)) Top proc)
+      ((binary varT (type (Box threadT varT)) Any proc)
        analyse eval args))))
 
 (def: box-procs
@@ -427,7 +427,7 @@
   (<| (prefix "process")
       (|> (dict.new text.Hash<Text>)
           (install "parallelism-level" (nullary Nat))
-          (install "schedule" (binary Nat (type (io.IO Top)) Top))
+          (install "schedule" (binary Nat (type (io.IO Any)) Any))
           )))
 
 (def: #export procedures
diff --git a/new-luxc/source/luxc/lang/extension/analysis/host.jvm.lux b/new-luxc/source/luxc/lang/extension/analysis/host.jvm.lux
index 08ad014be..9ef06a4b1 100644
--- a/new-luxc/source/luxc/lang/extension/analysis/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/extension/analysis/host.jvm.lux
@@ -477,12 +477,12 @@
     (case args
       (^ (list exceptionC))
       (do macro.Monad<Meta>
-        [_ (&.infer Bottom)
+        [_ (&.infer Nothing)
          [exceptionT exceptionA] (&common.with-unknown-type
                                    (analyse exceptionC))
          exception-class (check-object exceptionT)
          ? (sub-class? "java.lang.Throwable" exception-class)
-         _ (: (Meta Top)
+         _ (: (Meta Any)
               (if ?
                 (wrap [])
                 (&.throw Non-Throwable exception-class)))]
@@ -571,7 +571,7 @@
             (java-type-to-lux-type mappings bound)
             
             _
-            (macro/wrap Top)))
+            (macro/wrap Any)))
 
         (host.instance? Class java-type)
         (let [java-type (:! (Class Object) java-type)
@@ -818,7 +818,7 @@
       (case [classC fieldC]
         [[_ (#.Text class)] [_ (#.Text field)]]
         (do macro.Monad<Meta>
-          [_ (&.infer Top)
+          [_ (&.infer Any)
            [fieldT final?] (static-field class field)
            _ (&.assert Cannot-Set-Final-Field (format class "#" field)
                        (not final?))
@@ -1130,7 +1130,7 @@
 (def: (invoke//special proc)
   (-> Text ///.Analysis)
   (function (_ analyse eval args)
-    (case (: (e.Error [(List Code) [Text Text Code (List [Text Code]) Top]])
+    (case (: (e.Error [(List Code) [Text Text Code (List [Text Code]) Any]])
              (p.run args ($_ p.seq s.text s.text s.any (p.some (s.tuple (p.seq s.text s.any))) s.end!)))
       (#e.Success [_ [class method objectC argsTC _]])
       (do macro.Monad<Meta>
diff --git a/new-luxc/source/luxc/lang/extension/statement.lux b/new-luxc/source/luxc/lang/extension/statement.lux
index f607ac154..a92995630 100644
--- a/new-luxc/source/luxc/lang/extension/statement.lux
+++ b/new-luxc/source/luxc/lang/extension/statement.lux
@@ -52,7 +52,7 @@
     (wrap [annsI (:! Code annsV)])))
 
 (def: (ensure-valid-alias def-name annotations value)
-  (-> Text Code Code (Meta Top))
+  (-> Text Code Code (Meta Any))
   (case [annotations value]
     (^multi [[_ (#.Record pairs)] [_ (#.Symbol _)]]
             (|> pairs list.size (n/= +1)))
@@ -76,7 +76,7 @@
               (do @
                 [_ (ensure-valid-alias def-name annotationsV valueC)
                  _ (lang.with-scope
-                     (statementT.translate-def def-name Bottom id annotationsV))]
+                     (statementT.translate-def def-name Nothing id annotationsV))]
                 (wrap []))
 
               #.None
@@ -107,7 +107,7 @@
       (do macro.Monad<Meta>
         [[_ programA] (<| lang.with-scope
                           (scopeL.with-local [args (type (List Text))])
-                          (lang.with-type (type (IO Top)))
+                          (lang.with-type (type (IO Any)))
                           (expressionA.analyser evalL.eval programC))
          syntheses //.all-syntheses
          programI (expressionT.translate (expressionS.synthesize syntheses programA))
-- 
cgit v1.2.3