From 3aaa523f41df21b493133c4f3580c4cfed1611ff Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 15 Aug 2011 23:49:20 +0200
Subject: Move integer->bytes to util.rkt.

---
 whirlpool.rkt | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'whirlpool.rkt')

diff --git a/whirlpool.rkt b/whirlpool.rkt
index b1347e9..d57cf51 100644
--- a/whirlpool.rkt
+++ b/whirlpool.rkt
@@ -23,6 +23,8 @@
 ;;; It is optimized for clarity, not performance.
 ;;;
 
+(require "util.rkt")
+
 (provide: [whirlpool (Bytes -> Exact-Nonnegative-Integer)])
 
 (define-type Matrix Exact-Nonnegative-Integer)
@@ -201,15 +203,6 @@
              ([byte : Byte (in-bytes b)])
     (+ (arithmetic-shift acc 8) byte)))
 
-(define: (integer->bytes [x : Exact-Nonnegative-Integer]) : Bytes
-  (let: loop : Bytes
-        ([acc : (Listof Byte) (list)]
-         [x : Exact-Nonnegative-Integer x])
-    (if (zero? x)
-        (list->bytes acc)
-        (loop (cons (bitwise-and #xff x) acc)
-              (arithmetic-shift x -8)))))
-
 (define: (length->bytes [n : Exact-Nonnegative-Integer]) : Bytes
   (let ([b (integer->bytes n)])
     (bytes-append (make-bytes (- 32 (bytes-length b)) 0) b)))
-- 
cgit v1.2.3