diff options
Diffstat (limited to 'whirlpool.rkt')
-rw-r--r-- | whirlpool.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/whirlpool.rkt b/whirlpool.rkt index 5d436aa..222f9df 100644 --- a/whirlpool.rkt +++ b/whirlpool.rkt @@ -204,7 +204,7 @@ (+ (arithmetic-shift acc 8) byte))) (define: (length->bytes [n : Exact-Nonnegative-Integer]) : Bytes - (let ([b (integer->bytes n)]) + (let ([b (integer->bytes n 'big-endian)]) (bytes-append (make-bytes (- 32 (bytes-length b)) 0) b))) (define: (pad-whirlpool-bytes [b : Bytes]) : Bytes |