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

(limited to 'lux-lua')

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index 8d572e8c2..c3acbb560 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -206,10 +206,10 @@
                                (def: (read_tuple read host_object)
                                  (-> Translator net/sandius/rembulan/impl/DefaultTable (Try Any))
                                  (let [init_num_keys (.nat (ffi.of_long (net/sandius/rembulan/Table::rawlen host_object)))]
-                                   (loop [num_keys init_num_keys
-                                          idx 0
-                                          output (is (Array java/lang/Object)
-                                                     (array.empty init_num_keys))]
+                                   (loop (again [num_keys init_num_keys
+                                                 idx 0
+                                                 output (is (Array java/lang/Object)
+                                                            (array.empty init_num_keys))])
                                      (if (n.< num_keys idx)
                                        (case (net/sandius/rembulan/Table::get_idx (ffi.as_long (.int (++ idx))) host_object)
                                          {.#None}
@@ -293,8 +293,8 @@
                                  (<| try.trusted
                                      (do [! try.monad]
                                        [input/* (monad.each ! ..read parameters)]
-                                       (loop [lux_function abstraction
-                                              input/* input/*]
+                                       (loop (again [lux_function abstraction
+                                                     input/* input/*])
                                          (`` (`` (case input/*
                                                    (pattern (list))
                                                    (in self)
-- 
cgit v1.2.3