fixed endian-ness

svn: r7377

original commit: 05ae7be90da32c0aa0cad25c09afd2f7ff1bf00e
This commit is contained in:
Eli Barzilay 2007-09-18 13:54:18 +00:00
parent bafb017c5e
commit bc69e19c0f

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