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/source/program.lux')

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