From 93515cf43ce16974c7bef1d1d8332e3c8cfe6fac Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 16 Aug 2011 15:14:52 +0200
Subject: Implement the Salsa20 stream cipher.

---
 whirlpool.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'whirlpool.rkt')

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
-- 
cgit v1.2.3