conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

positive.
This commit is contained in:
Abdulaziz Ghuloum 2009-08-26 16:40:59 +03:00
parent 8bd012bfeb
commit b1c9fda05c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.bytevectors.ss
View File

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

2
scheme/last-revision
View File

@ -1 +1 @@
1844 1845