Made labels (tags & slots) into a form of global binding.

7 files changed, 9 insertions, 9 deletions

diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux
index 07318b451..62ce204c5 100644
--- a/stdlib/source/library/lux/target/js.lux
+++ b/stdlib/source/library/lux/target/js.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Location Code or and function if cond undefined for comment not int try ++ --)
+   [lux (#- Location Code Label or and function if cond undefined for comment not int try ++ --)
     [control
      [pipe (#+ case>)]]
     [data
diff --git a/stdlib/source/library/lux/target/jvm.lux b/stdlib/source/library/lux/target/jvm.lux
index ce273f401..50543961c 100644
--- a/stdlib/source/library/lux/target/jvm.lux
+++ b/stdlib/source/library/lux/target/jvm.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Type)
+   [lux (#- Type Label)
     [data
      [collection
       [row (#+ Row)]]]
diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux
index 9c106e442..53886c7b5 100644
--- a/stdlib/source/library/lux/target/jvm/bytecode.lux
+++ b/stdlib/source/library/lux/target/jvm/bytecode.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Type int try)
+   [lux (#- Type Label int try)
     ["." ffi (#+ import:)]
     [abstract
      [monoid (#+ Monoid)]
diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux
index 3fdf491bc..55316e26f 100644
--- a/stdlib/source/library/lux/target/jvm/reflection.lux
+++ b/stdlib/source/library/lux/target/jvm/reflection.lux
@@ -174,7 +174,7 @@
             (do {! try.monad}
               [paramsT (|> reflection
                            java/lang/reflect/ParameterizedType::getActualTypeArguments
-                           array.list
+                           (array.list #.None)
                            (monad.each ! parameter))]
               (in (/.class (|> raw
                                (:as (java/lang/Class java/lang/Object))
@@ -297,7 +297,7 @@
   (case type
     (#.Primitive name params)
     (let [class_name (java/lang/Class::getName class)
-          class_params (array.list (java/lang/Class::getTypeParameters class))
+          class_params (array.list #.None (java/lang/Class::getTypeParameters class))
           num_class_params (list.size class_params)
           num_type_params (list.size params)]
       (if (text\= class_name name)
@@ -360,7 +360,7 @@
 
 (def: .public deprecated?
   (-> (array.Array java/lang/annotation/Annotation) Bit)
-  (|>> array.list
+  (|>> (array.list #.None)
        (list.all (|>> (ffi.check java/lang/Deprecated)))
        list.empty?
        not))
diff --git a/stdlib/source/library/lux/target/lua.lux b/stdlib/source/library/lux/target/lua.lux
index 42d8d60e5..faac1b184 100644
--- a/stdlib/source/library/lux/target/lua.lux
+++ b/stdlib/source/library/lux/target/lua.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Location Code int if cond function or and not let ^ local)
+   [lux (#- Location Code Label int if cond function or and not let ^ local)
     ["@" target]
     [abstract
      [equivalence (#+ Equivalence)]
diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux
index 0e228dc57..a14b3e0ce 100644
--- a/stdlib/source/library/lux/target/php.lux
+++ b/stdlib/source/library/lux/target/php.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Location Code Global static int if cond or and not comment for try global)
+   [lux (#- Location Code Global Label static int if cond or and not comment for try global)
     ["@" target]
     [abstract
      [equivalence (#+ Equivalence)]
diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux
index 8a41d3ae8..6b24b6ae2 100644
--- a/stdlib/source/library/lux/target/python.lux
+++ b/stdlib/source/library/lux/target/python.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux (#- Location Code not or and list if cond int comment exec try)
+   [lux (#- Location Code Label not or and list if cond int comment exec try)
     ["@" target]
     ["." ffi]
     [abstract