suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed endian-ness

Browse Source 
svn: r7377
This commit is contained in:
Eli Barzilay 2007-09-18 13:54:18 +00:00
parent 135e23ab0d
commit 05ae7be90d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/md5.ss
View File

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