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

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index a6e31ec08..aaf9e27f4 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -116,9 +116,9 @@
   (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary))))
   (do [! (try.with async.monad)]
     []
-    (loop [pending host_dependencies
-           output (is (Dictionary file.Path Binary)
-                      (dictionary.empty text.hash))]
+    (loop (again [pending host_dependencies
+                  output (is (Dictionary file.Path Binary)
+                             (dictionary.empty text.hash))])
       (case pending
         {.#End}
         (in output)
-- 
cgit v1.2.3