aboutsummaryrefslogtreecommitdiff
path: root/lux-r/source
diff options
context:
space:
mode:
authorEduardo Julian2022-03-30 14:05:57 -0400
committerEduardo Julian2022-03-30 14:05:57 -0400
commit381ec5920d9ebeb335963778dec182268819e718 (patch)
tree5c9288c5fbb16c21a0f00f96710b0aa7db4585f4 /lux-r/source
parent1a962ee4b03f51f46a5979bfefc954f35ee3a1b7 (diff)
Now demanding mandatory loop names, instead of using default "again" name.
Diffstat (limited to '')
-rw-r--r--lux-r/source/program.lux4
1 files changed, 2 insertions, 2 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}