More efficient binary formatting.

3 files changed, 32 insertions, 24 deletions

diff --git a/lux-lua/commands.md b/lux-lua/commands.md
index 6783b7b17..d09567831 100644
--- a/lux-lua/commands.md
+++ b/lux-lua/commands.md
@@ -28,6 +28,14 @@ cd ~/lux/stdlib/ \
 
 ```
 cd ~/lux/lux-lua/ \
-&& mvn install:install-file -Dfile=target/program.jar -DgroupId=com.github.luxlang -DartifactId=lux-lua -Dversion=0.6.6-SNAPSHOT -Dpackaging=jar
+&& mvn install:install-file -Dfile=target/program.jar -DgroupId=com.github.luxlang -DartifactId=lux-lua -Dversion=0.7.0-SNAPSHOT -Dpackaging=jar
+
+cd ~/lux/lux-lua/ && mvn deploy:deploy-file \
+-Durl=https://$NEXUS_USERNAME:$NEXUS_PASSWORD@oss.sonatype.org/content/repositories/snapshots/ \
+-Dfile=target/program.jar \
+-DgroupId=com.github.luxlang \
+-DartifactId=lux-python \
+-Dversion=0.7.0-SNAPSHOT \
+-Dpackaging=jar
 ```
 
diff --git a/lux-lua/project.lux b/lux-lua/project.lux
index f1b9c0c46..1e54cef63 100644
--- a/lux-lua/project.lux
+++ b/lux-lua/project.lux
@@ -1,5 +1,5 @@
 [""
- ["identity" ["com.github.luxlang" "lux-lua" "0.6.6-SNAPSHOT"]
+ ["identity" ["com.github.luxlang" "lux-lua" "0.7.0-SNAPSHOT"]
   "description" "A Lua compiler for Lux."
   "info" ["url" "https://github.com/LuxLang/lux"
           "scm" "https://github.com/LuxLang/lux.git"
@@ -15,9 +15,9 @@
   "repositories" ["https://oss.sonatype.org/content/repositories/snapshots/"
                   "https://oss.sonatype.org/service/local/staging/deploy/maven2/"]
   
-  "lux" ["com.github.luxlang" "lux-jvm" "0.6.6-SNAPSHOT" "jar"]
+  "lux" ["com.github.luxlang" "lux-jvm" "0.7.0-SNAPSHOT" "jar"]
   "dependencies" [... ["com.github.luxlang" "stdlib" "0.6.5" "tar"]
-                  ... ["com.github.luxlang" "lux-jvm-function" "0.6.5" "jar"]
+                  ["com.github.luxlang" "lux-jvm-function" "0.6.5" "jar"]
 
                   ["org.ow2.asm" "asm" "5.0.4" "jar"]
                   ["org.ow2.asm" "asm-commons" "5.0.4" "jar"]
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index fbe24bba8..1d4a2518b 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -218,7 +218,7 @@
                                          {.#Some member}
                                          (case (read member)
                                            {try.#Success parsed_member}
-                                           (again num_keys (++ idx) (array.write! idx (as java/lang/Object parsed_member) output))
+                                           (again num_keys (++ idx) (array.has! idx (as java/lang/Object parsed_member) output))
 
                                            {try.#Failure error}
                                            {try.#Failure error}))
@@ -387,7 +387,7 @@
                                        (net/sandius/rembulan/impl/DefaultTable
                                         [] (rawget self [idx long]) java/lang/Object
                                         (|> value
-                                            (array.read! (|> idx ffi.of_long .nat --))
+                                            (array.item (|> idx ffi.of_long .nat --))
                                             maybe.trusted
                                             to_host))
 
@@ -398,7 +398,7 @@
                                           {.#Some field}
                                           (case (ffi.of_string (net/sandius/rembulan/ByteString::decode field))
                                             (pattern (static runtime.variant_tag_field))
-                                            (case (array.read! 0 value)
+                                            (case (array.item 0 value)
                                               {.#Some it}
                                               (|> it
                                                   (as java/lang/Integer)
@@ -408,7 +408,7 @@
                                               (undefined))
                                             
                                             (pattern (static runtime.variant_flag_field))
-                                            (case (array.read! 1 value)
+                                            (case (array.item 1 value)
                                               {.#Some _}
                                               (as java/lang/Object "")
 
@@ -417,7 +417,7 @@
                                             
                                             (pattern (static runtime.variant_value_field))
                                             (|> value
-                                                (array.read! 2)
+                                                (array.item 2)
                                                 maybe.trusted
                                                 to_host)
 
@@ -434,7 +434,7 @@
                                           {.#None}
                                           (case (ffi.as java/lang/Long field)
                                             {.#Some idx}
-                                            (case (array.read! (|> idx ffi.of_long .nat --) value)
+                                            (case (array.item (|> idx ffi.of_long .nat --) value)
                                               {.#Some it}
                                               (to_host it)
 
@@ -463,15 +463,15 @@
                                  (do try.monad
                                    [.let [inputs (is (ffi.type [java/lang/Object])
                                                      (|> (array.empty 2)
-                                                         (array.write! 0 ... (as java/lang/Object inputs)
-                                                                       ... (net/sandius/rembulan/impl/ImmutableTable$Builder::build (net/sandius/rembulan/impl/ImmutableTable$Builder::new))
-                                                                       (as java/lang/Object (lux_structure to_host (as (Array java/lang/Object) inputs))))
-                                                         (array.write! 1 ... (as java/lang/Object lux)
-                                                                       ... (net/sandius/rembulan/impl/ImmutableTable$Builder::build (net/sandius/rembulan/impl/ImmutableTable$Builder::new))
-                                                                       (as java/lang/Object (lux_structure to_host (as (Array java/lang/Object) lux))))))]
+                                                         (array.has! 0 ... (as java/lang/Object inputs)
+                                                                     ... (net/sandius/rembulan/impl/ImmutableTable$Builder::build (net/sandius/rembulan/impl/ImmutableTable$Builder::new))
+                                                                     (as java/lang/Object (lux_structure to_host (as (Array java/lang/Object) inputs))))
+                                                         (array.has! 1 ... (as java/lang/Object lux)
+                                                                     ... (net/sandius/rembulan/impl/ImmutableTable$Builder::build (net/sandius/rembulan/impl/ImmutableTable$Builder::new))
+                                                                     (as java/lang/Object (lux_structure to_host (as (Array java/lang/Object) lux))))))]
                                     output (net/sandius/rembulan/exec/DirectCallExecutor::call state_context (as java/lang/Object macro) inputs executor)]
                                    (|> output
-                                       (array.read! 0)
+                                       (array.item 0)
                                        maybe.trusted
                                        (as java/lang/Object)
                                        ..read)))
@@ -703,7 +703,7 @@
                                                         [lua_function (net/sandius/rembulan/load/ChunkLoader::loadTextChunk variable (ffi.as_string "lux compilation") (ffi.as_string (_.code code)) loader)
                                                          output (net/sandius/rembulan/exec/DirectCallExecutor::call state_context (as java/lang/Object lua_function) (array.empty 0)
                                                                                                                     executor)]
-                                                        (case (array.read! 0 output)
+                                                        (case (array.item 0 output)
                                                           {.#None}
                                                           (in [])
 
@@ -816,14 +816,14 @@
                                         output (net/sandius/rembulan/exec/DirectCallExecutor::call state_context
                                                                                                    (as java/lang/Object handler)
                                                                                                    (|> (array.empty 5)
-                                                                                                       (array.write! 0 name)
-                                                                                                       (array.write! 1 (as java/lang/Object (phase_wrapper phase)))
-                                                                                                       (array.write! 2 (..to_host archive))
-                                                                                                       (array.write! 3 (..to_host parameters))
-                                                                                                       (array.write! 4 (..to_host state)))
+                                                                                                       (array.has! 0 name)
+                                                                                                       (array.has! 1 (as java/lang/Object (phase_wrapper phase)))
+                                                                                                       (array.has! 2 (..to_host archive))
+                                                                                                       (array.has! 3 (..to_host parameters))
+                                                                                                       (array.has! 4 (..to_host state)))
                                                                                                    executor)]
                                        (|> output
-                                           (array.read! 0)
+                                           (array.item 0)
                                            maybe.trusted
                                            (as java/lang/Object)
                                            ..read)))))]