From 05180035f20f3a4096715f399a74a2484066ee26 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 23 Dec 2008 20:44:47 -0500 Subject: [PATCH] fixed &who for the error condition when uint-list->bytevector is given a nonpositive size. --- scheme/ikarus.bytevectors.ss | 4 +++- scheme/last-revision | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/scheme/ikarus.bytevectors.ss b/scheme/ikarus.bytevectors.ss index 3b7d81e..d6f20c5 100644 --- a/scheme/ikarus.bytevectors.ss +++ b/scheme/ikarus.bytevectors.ss @@ -832,7 +832,9 @@ (make-bytevector idx) (die who "not a proper list" ls)))) (lambda (ls endianness size) - (race ls ls ls 0 endianness size))) + (if (and (fixnum? size) (fx> size 0)) + (race ls ls ls 0 endianness size) + (die who "size must be a positive integer" size)))) (define uint-list->bytevector (make-xint-list->bytevector 'uint-list->bytevector bytevector-uint-set!/who)) diff --git a/scheme/last-revision b/scheme/last-revision index a894381..ad0b314 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1721 +1722