Move integer->bytes to util.rkt.

1 files changed, 2 insertions, 9 deletions

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)))