bytevector-{u,s}int-set! now err when the size argument is not

positive.

scheme/ikarus.bytevectors.ss

@@ -750,7 +750,7 @@
                    ($fx< i0 bvsize))
         (die who "invalid index" i0))
       (unless (and (fixnum? size) 
-                   ($fx>= size 0) 
+                   ($fx> size 0)
                    ($fx<= i0 ($fx- bvsize size)))
         (die who "invalid size" size)))
     (let ([nsize (bitwise-length n)])
@@ -788,7 +788,7 @@
                    ($fx< i0 bvsize))
         (die who "invalid index" i0))
       (unless (and (fixnum? size) 
-                   ($fx>= size 0) 
+                   ($fx> size 0) 
                    ($fx<= i0 ($fx- bvsize size)))
         (die who "invalid size" size)))
     (let ([nsize (+ (bitwise-length n) 1)])

scheme/last-revision

@@ -1 +1 @@
-1844
+1845