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.

---
 stdlib/source/test/lux.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index d7a2ac3eb..9e52c5465 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -387,8 +387,8 @@
     {.#Right [lux (list (code.bit (text.contains? ..crosshair source_code)))]}))
 
 (/.macro: (sum tokens)
-  (loop [tokens tokens
-         output 0]
+  (loop (again [tokens tokens
+                output 0])
     (case tokens
       {.#End}
       (meta#in (list (code.nat output)))
@@ -1033,8 +1033,8 @@
          .let [expected (n.* factor iterations)]]
         (_.cover [/.loop]
                  (n.= expected
-                      (/.loop [counter 0
-                               value 0]
+                      (/.loop (again [counter 0
+                                      value 0])
                         (if (n.< iterations counter)
                           (again (++ counter) (n.+ factor value))
                           value)))))
-- 
cgit v1.2.3