aboutsummaryrefslogtreecommitdiff
path: root/lux-js
diff options
context:
space:
mode:
authorEduardo Julian2022-03-30 14:05:57 -0400
committerEduardo Julian2022-03-30 14:05:57 -0400
commit381ec5920d9ebeb335963778dec182268819e718 (patch)
tree5c9288c5fbb16c21a0f00f96710b0aa7db4585f4 /lux-js
parent1a962ee4b03f51f46a5979bfefc954f35ee3a1b7 (diff)
Now demanding mandatory loop names, instead of using default "again" name.
Diffstat (limited to 'lux-js')
-rw-r--r--lux-js/source/program.lux6
1 files changed, 3 insertions, 3 deletions
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}