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) (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)))) (digit hi 4) (digit hi 0) (digit hi 12) (digit hi 8))))
(define (word->bytes w) (define (word->bytes w)
(bytes-append (integer->integer-bytes (cdr w) 2 #f) (bytes-append (integer->integer-bytes (cdr w) 2 #f #f)
(integer->integer-bytes (car w) 2 #f))) (integer->integer-bytes (car w) 2 #f #f)))
(define (encode l hex-encode?) (define (encode l hex-encode?)
(apply bytes-append (map (if hex-encode? word->digits word->bytes) l))) (apply bytes-append (map (if hex-encode? word->digits word->bytes) l)))