aboutsummaryrefslogtreecommitdiff
path: root/lux-lua/source
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-lua/source
parent1a962ee4b03f51f46a5979bfefc954f35ee3a1b7 (diff)
Now demanding mandatory loop names, instead of using default "again" name.
Diffstat (limited to 'lux-lua/source')
-rw-r--r--lux-lua/source/program.lux12
1 files changed, 6 insertions, 6 deletions
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)