From 8353dfe1a17440264a41903006a7d8d9726e83bc Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 16 Aug 2011 21:31:47 +0200
Subject: util.rkt: Adapt padding done by integer->bytes/size to requested
 endianness.

---
 util.rkt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'util.rkt')

diff --git a/util.rkt b/util.rkt
index c1325a6..aa9714d 100644
--- a/util.rkt
+++ b/util.rkt
@@ -45,7 +45,12 @@
                               [endianness : Endianness]
                               [size       : Exact-Nonnegative-Integer])
   : Bytes
-  (pad-bytes (integer->bytes x endianness) size #x0 'right))
+  (pad-bytes (integer->bytes x endianness)
+             size
+             #x0
+             (if (eq? endianness 'big-endian)
+                 'right
+                 'left)))
 
 (define: (bytes->integer [b : Bytes]) : Exact-Nonnegative-Integer
   (for/fold: ([n : Exact-Nonnegative-Integer 0])
-- 
cgit v1.2.3