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-scheme/source/program.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lux-scheme')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 7689755c5..78d96e962 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -287,9 +287,9 @@
 (def: (read_tuple read host_object)
   (-> (Reader java/lang/Object) (Reader (gnu/lists/FVector java/lang/Object)))
   (let [size (.nat (gnu/lists/FVector::getBufferLength host_object))]
-    (loop [idx 0
-           output (is (Array Any)
-                      (array.new size))]
+    (loop (again [idx 0
+                  output (is (Array Any)
+                             (array.new size))])
       (if (n.< size idx)
         (case (read (gnu/lists/FVector::getRaw (.int idx) host_object))
           {try.#Failure error}
-- 
cgit v1.2.3