diff options
| author | Eduardo Julian | 2021-09-12 15:39:55 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-12 15:39:55 -0400 |
| commit | 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch) | |
| tree | 14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/program/aedifex/hash.lux | |
| parent | dda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff) | |
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/program/aedifex/hash.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 8 |
1 files changed, 4 insertions, 4 deletions
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)))) ) |