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-cl/source/program.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 5e01060b3..0a57c9350 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -240,8 +240,8 @@
 (def: (read_tuple read host_object)
   (-> (Reader org/armedbear/lisp/LispObject) (Reader org/armedbear/lisp/SimpleVector))
   (let [size (.nat (org/armedbear/lisp/LispObject::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)
         ... TODO: Start using "SVREF" instead of "elt" ASAP
         (case (read (org/armedbear/lisp/LispObject::elt (.int idx) host_object))
-- 
cgit v1.2.3