Now demanding mandatory loop names, instead of using default "again" name.

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}