diff options
Diffstat (limited to 'lux-lua')
| -rw-r--r-- | lux-lua/source/program.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index 8d572e8c2..c3acbb560 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -206,10 +206,10 @@ (def: (read_tuple read host_object) (-> Translator net/sandius/rembulan/impl/DefaultTable (Try Any)) (let [init_num_keys (.nat (ffi.of_long (net/sandius/rembulan/Table::rawlen host_object)))] - (loop [num_keys init_num_keys - idx 0 - output (is (Array java/lang/Object) - (array.empty init_num_keys))] + (loop (again [num_keys init_num_keys + idx 0 + output (is (Array java/lang/Object) + (array.empty init_num_keys))]) (if (n.< num_keys idx) (case (net/sandius/rembulan/Table::get_idx (ffi.as_long (.int (++ idx))) host_object) {.#None} @@ -293,8 +293,8 @@ (<| try.trusted (do [! try.monad] [input/* (monad.each ! ..read parameters)] - (loop [lux_function abstraction - input/* input/*] + (loop (again [lux_function abstraction + input/* input/*]) (`` (`` (case input/* (pattern (list)) (in self) |