diff options
Diffstat (limited to '')
| -rw-r--r-- | lux-r/source/program.lux | 4 | ||||
| -rw-r--r-- | lux-ruby/source/program.lux | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index 77b3fc757..0dd304ee0 100644 --- a/lux-r/source/program.lux +++ b/lux-r/source/program.lux @@ -395,8 +395,8 @@ (def: (read_tuple read host_object) (-> (Reader java/lang/Object) (Reader org/renjin/sexp/ListVector)) (let [size (.nat (org/renjin/sexp/ListVector::length host_object))] - (loop [idx 0 - output (as (Array Any) (array.new size))] + (loop (again [idx 0 + output (as (Array Any) (array.new size))]) (if (n.< size idx) (case (|> host_object (org/renjin/sexp/ListVector::get_index (.int idx)) (as java/lang/Object) read) {try.#Failure error} diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux index 86dd1d553..6270cba1c 100644 --- a/lux-ruby/source/program.lux +++ b/lux-ruby/source/program.lux @@ -235,9 +235,9 @@ (def: (read_tuple read host_object) (-> Translator org/jruby/RubyArray (Try Any)) (let [size (.nat (ffi.of_int (org/jruby/RubyArray::getLength host_object)))] - (loop [idx 0 - output (is (Array Any) - (array.empty size))] + (loop (again [idx 0 + output (is (Array Any) + (array.empty size))]) (if (n.< size idx) (case (org/jruby/RubyArray::get (ffi.as_int (.int idx)) host_object) {.#None} |