From 381ec5920d9ebeb335963778dec182268819e718 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 30 Mar 2022 14:05:57 -0400 Subject: Now demanding mandatory loop names, instead of using default "again" name. --- lux-r/source/program.lux | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lux-r') 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} -- cgit v1.2.3