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

(limited to 'stdlib/source/program/aedifex/hash.lux')

diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index e0548920f..5adf44a9e 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -123,9 +123,9 @@
           (-> Text (Try (Hash h)))))
     (let [hash_size (..hash_size encoded)]
       (if (n.= size hash_size)
-        (loop [input encoded
-               chunk 0
-               output (binary.empty hash_size)]
+        (loop (again [input encoded
+                      chunk 0
+                      output (binary.empty hash_size)])
           (let [index (n.* chunk i64.bytes_per_i64)]
             (case (text.split_at ..hex_per_chunk input)
               {.#Some [head tail]}
-- 
cgit v1.2.3