From 16f840ed2056d48d7f21d80df60e4136e75af108 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 4 Nov 2011 11:45:42 +0900 Subject: [PATCH] Fixing destination offset in bytevector-copy-partial!. --- lib/scheme/extras.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/scheme/extras.scm b/lib/scheme/extras.scm index 713913f0..d7c10843 100644 --- a/lib/scheme/extras.scm +++ b/lib/scheme/extras.scm @@ -118,4 +118,4 @@ (define (bytevector-copy-partial! from start end to at) (do ((i start (+ i 1))) ((= i end)) - (bytevector-u8-set! to (+ i at) (bytevector-u8-ref from i)))) + (bytevector-u8-set! to (+ (- i start) at) (bytevector-u8-ref from i))))