bytevector-uint-set! accepts zero size

[Gwen Weinholt]

Ikarus Scheme version 0.0.4-rc1+, 64-bit (revision 1845, build 2009-08-26)
Copyright (c) 2006-2009 Abdulaziz Ghuloum

> (bytevector-uint-ref #vu8() 0 (endianness big) 0)
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: bytevector-uint-ref
   3. &message: "invalid size"
   4. &irritants: (0)
> (let ((bv (make-bytevector 2 #xff)))
    (bytevector-uint-set! bv 0 0 (endianness big) 0)
    bv)
#vu8(255 255)

The size must be positive, so the call to bytevector-uint-set! should have raised an exception.

[Abdulaziz Ghuloum (aghuloum)]

Fixed in 1846. Thanks.