From d85466ab75ff2f074353e71cb063c956237be504 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 1 Dec 2007 01:43:37 -0500 Subject: [PATCH] Fixes bug 173170: bytevector-copy! precondition error --- scheme/ikarus.bytevectors.ss | 4 ++-- scheme/last-revision | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/ikarus.bytevectors.ss b/scheme/ikarus.bytevectors.ss index 0fdf8cf..3fc9742 100644 --- a/scheme/ikarus.bytevectors.ss +++ b/scheme/ikarus.bytevectors.ss @@ -560,10 +560,10 @@ [(not (bytevector? dst)) (error 'bytevector-copy! "not a bytevector" dst)] [(let ([n ($fx+ src-start k)]) - (or ($fx< n 0) ($fx>= n ($bytevector-length src)))) + (or ($fx< n 0) ($fx> n ($bytevector-length src)))) (error 'bytevector-copy! "out of range" src-start k)] [(let ([n ($fx+ dst-start k)]) - (or ($fx< n 0) ($fx>= n ($bytevector-length dst)))) + (or ($fx< n 0) ($fx> n ($bytevector-length dst)))) (error 'bytevector-copy! "out of range" dst-start k)] [(eq? src dst) (cond diff --git a/scheme/last-revision b/scheme/last-revision index ff7ff4d..17edc7a 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1154 +1155