From a0ed5fd377daf5754697636504de8e180abf9ec0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 6 Apr 2022 16:07:22 -0400
Subject: More efficient binary parsing.

---
 stdlib/source/program/aedifex/hash.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index 1455fd65f..6b3f973ce 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -57,13 +57,13 @@
 
   (def: encoded
     (Format Binary)
-    (binary.aggregate (function (_ byte representation)
-                        (let [hex (# n.hex encoded byte)
-                              hex (case (text.size hex)
-                                    1 (format "0" hex)
-                                    _ hex)]
-                          (format representation hex)))
-                      ""))
+    (binary.mix (function (_ byte representation)
+                  (let [hex (# n.hex encoded byte)
+                        hex (case (text.size hex)
+                              1 (format "0" hex)
+                              _ hex)]
+                    (format representation hex)))
+                ""))
 
   (template [<factor> <name>]
     [(def: <name>
-- 
cgit v1.2.3