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

(limited to 'lux-js')

diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux
index 450b4f9ae..9be0834a6 100644
--- a/lux-js/source/program.lux
+++ b/lux-js/source/program.lux
@@ -368,9 +368,9 @@
                   (Maybe (Array java/lang/Object)))
               (if (ffi.of_boolean (org/openjdk/nashorn/api/scripting/JSObject::isArray js_object))
                 (let [num_keys (.nat (ffi.of_int (org/openjdk/nashorn/api/scripting/ScriptObjectMirror::size js_object)))]
-                  (loop [idx 0
-                         output (is (Array java/lang/Object)
-                                    (array.empty num_keys))]
+                  (loop (again [idx 0
+                                output (is (Array java/lang/Object)
+                                           (array.empty num_keys))])
                     (if (n.< num_keys idx)
                       (case (org/openjdk/nashorn/api/scripting/JSObject::getMember (ffi.as_string (%.nat idx)) js_object)
                         {.#Some member}
-- 
cgit v1.2.3