From bc69e19c0f973aee33b5efa1398adfe96633a524 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 18 Sep 2007 13:54:18 +0000 Subject: [PATCH] fixed endian-ness svn: r7377 original commit: 05ae7be90da32c0aa0cad25c09afd2f7ff1bf00e --- collects/mzlib/md5.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/md5.ss b/collects/mzlib/md5.ss index d129cd9..c7cc104 100644 --- a/collects/mzlib/md5.ss +++ b/collects/mzlib/md5.ss @@ -444,8 +444,8 @@ (bytes (digit lo 4) (digit lo 0) (digit lo 12) (digit lo 8) (digit hi 4) (digit hi 0) (digit hi 12) (digit hi 8)))) (define (word->bytes w) - (bytes-append (integer->integer-bytes (cdr w) 2 #f) - (integer->integer-bytes (car w) 2 #f))) + (bytes-append (integer->integer-bytes (cdr w) 2 #f #f) + (integer->integer-bytes (car w) 2 #f #f))) (define (encode l hex-encode?) (apply bytes-append (map (if hex-encode? word->digits word->bytes) l)))