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/poly/lux/abstract/functor.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/poly')

diff --git a/stdlib/source/poly/lux/abstract/functor.lux b/stdlib/source/poly/lux/abstract/functor.lux
index c22faabe2..80f8d414a 100644
--- a/stdlib/source/poly/lux/abstract/functor.lux
+++ b/stdlib/source/poly/lux/abstract/functor.lux
@@ -66,9 +66,9 @@
                             ... Tuples
                             (do p.monad
                               [pairsCC (is (<type>.Parser (List [Code Code]))
-                                           (<type>.tuple (loop [idx 0
-                                                                pairsCC (is (List [Code Code])
-                                                                            (list))]
+                                           (<type>.tuple (loop (again [idx 0
+                                                                       pairsCC (is (List [Code Code])
+                                                                                   (list))])
                                                            (p.either (let [slotC (|> idx %.nat (format "____________slot") code.local)]
                                                                        (do !
                                                                          [_ (in [])
-- 
cgit v1.2.3