From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 stdlib/source/program/aedifex/hash.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 4cbc77515..21b9abeff 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -55,7 +55,7 @@
   (def: encoded
     (Format Binary)
     (binary.aggregate (function (_ byte representation)
-                        (let [hex (\ n.hex encoded byte)
+                        (let [hex (# n.hex encoded byte)
                               hex (case (text.size hex)
                                     1 (format "0" hex)
                                     _ hex)]
@@ -127,7 +127,7 @@
             (case (text.split_at ..hex_per_chunk input)
               {.#Some [head tail]}
               (do try.monad
-                [head (\ n.hex decoded head)
+                [head (# n.hex decoded head)
                  output (binary.write/64! index head output)]
                 (recur tail (++ chunk) output))
               
@@ -137,7 +137,7 @@
                 (^template [<size> <write>]
                   [<size>
                    (do try.monad
-                     [head (\ n.hex decoded input)
+                     [head (# n.hex decoded input)
                       output (<write> index head output)]
                      (constructor output))])
                 ([1 binary.write/8!]
@@ -161,7 +161,7 @@
     (All (_ h) (Equivalence (Hash h)))
 
     (def: (= reference subject)
-      (\ binary.equivalence =
+      (# binary.equivalence =
          (:representation reference)
          (:representation subject))))
   )
-- 
cgit v1.2.3