Changeset 18791 in project


Ignore:
Timestamp:
07/11/10 16:55:31 (11 years ago)
Author:
Ivan Raikov
Message:

Fixed a bug in uint2->endian-blob (spotted by Shawn Rutledge)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/endian-blob/trunk/endian-blob.scm

    r17017 r18791  
    652652(define (uint1->endian-blob n . rest)
    653653  (let-optionals rest ((mode MSB))
    654     (let ((bb (u8vector->blob/shared (s8vector n))))
     654    (let ((bb (u8vector->blob/shared (u8vector n))))
    655655      (if (not (fx= machine-mode mode))
    656656          (from_uint1 n bb 0 mode))
     
    660660(define (uint2->endian-blob n . rest)
    661661  (let-optionals rest ((mode MSB))
    662     (let ((bb (u16vector->blob/shared (s16vector n))))
     662    (let ((bb (u16vector->blob/shared (u16vector n))))
    663663      (if (not (fx= machine-mode mode))
    664664          (from_uint2 n bb 0 mode))
Note: See TracChangeset for help on using the changeset viewer.