aboutsummaryrefslogtreecommitdiff
path: root/lux-lua/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-lua/source')
-rw-r--r--lux-lua/source/program.lux10
1 files changed, 5 insertions, 5 deletions
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)))