From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 lux-lua/source/program.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lux-lua/source/program.lux')

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index 2a530ba13..41df182c0 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -188,7 +188,7 @@
 
                    (net/sandius/rembulan/impl/DefaultTable
                     [] (rawget self {idx long}) java/lang/Object
-                    (|> value (array.read! (|> idx (:as Nat) dec)) maybe.trusted re_wrap))
+                    (|> value (array.read! (|> idx (:as Nat) --)) maybe.trusted re_wrap))
 
                    (net/sandius/rembulan/impl/DefaultTable
                     [] (rawget self {field java/lang/Object}) java/lang/Object
@@ -215,7 +215,7 @@
                       #.None
                       (case (ffi.check java/lang/Long field)
                         (#.Some idx)
-                        (|> value (array.read! (|> idx (:as Nat) dec)) maybe.trusted re_wrap)
+                        (|> value (array.read! (|> idx (:as Nat) --)) maybe.trusted re_wrap)
                         
                         #.None
                         (panic! (exception.construct ..unknown_kind_of_object field)))))
@@ -247,14 +247,14 @@
                         output (: (Array java/lang/Object)
                                   (array.new init_num_keys))]
                    (if (n.< num_keys idx)
-                     (case (net/sandius/rembulan/Table::get_idx (:as java/lang/Long (inc idx)) host_object)
+                     (case (net/sandius/rembulan/Table::get_idx (:as java/lang/Long (++ idx)) host_object)
                        #.None
-                       (recur num_keys (inc idx) output)
+                       (recur num_keys (++ idx) output)
 
                        (#.Some member)
                        (case (read member)
                          (#try.Success parsed_member)
-                         (recur num_keys (inc idx) (array.write! idx (:as java/lang/Object parsed_member) output))
+                         (recur num_keys (++ idx) (array.write! idx (:as java/lang/Object parsed_member) output))
 
                          (#try.Failure error)
                          (#try.Failure error)))
-- 
cgit v1.2.3