aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/hash.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-12-02 06:42:20 -0400
committerEduardo Julian2020-12-02 06:42:20 -0400
commit34e310622bdeb1d0588c0664c0e78cbaa84f837c (patch)
treeeb7c04185b57c781f45d0ccdb955bc9afc2aa8dc /stdlib/source/program/aedifex/hash.lux
parent982a19e0c5d57b53f9726b780fec4c18f0787b4f (diff)
Re-named "::" and ":::" macros to "\" and "\\", to be consistent with the convention that only macros that deal with types may start with a colon.
Diffstat (limited to 'stdlib/source/program/aedifex/hash.lux')
-rw-r--r--stdlib/source/program/aedifex/hash.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index a484b9a0d..74d965f8c 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -53,7 +53,7 @@
(def: encode
(Format Binary)
(binary.fold (function (_ byte representation)
- (let [hex (:: n.hex encode byte)
+ (let [hex (\ n.hex encode byte)
hex (case (text.size hex)
1 (format "0" hex)
_ hex)]
@@ -124,7 +124,7 @@
(case (text.split ..hex-per-chunk input)
(#.Some [head tail])
(do try.monad
- [head (:: n.hex decode head)
+ [head (\ n.hex decode head)
output (binary.write/64 index head output)]
(recur tail (inc chunk) output))
@@ -134,7 +134,7 @@
(^template [<size> <write>]
[<size>
(do try.monad
- [head (:: n.hex decode input)
+ [head (\ n.hex decode input)
output (<write> index head output)]
(constructor output))])
([1 binary.write/8]
@@ -158,7 +158,7 @@
(All [h] (Equivalence (Hash h)))
(def: (= reference subject)
- (:: binary.equivalence =
- (:representation reference)
- (:representation subject))))
+ (\ binary.equivalence =
+ (:representation reference)
+ (:representation subject))))
)