From 72094b760b3299fdcceddfef1ded79670f5a61b8 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 1 Nov 2012 22:55:07 +0900 Subject: [PATCH] Fixing bug in vector-copy for non-zero start. --- lib/init-7.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 8be939f3..8a48e868 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -457,8 +457,8 @@ (let* ((start (if (pair? o) (car o) 0)) (end (if (and (pair? o) (pair? (cdr o))) (cadr o) (vector-length vec))) (res (make-vector (- end start)))) - (do ((i start (+ i 1))) ((>= i end) res) - (vector-set! res i (vector-ref vec i))))) + (do ((i 0 (+ i 1)) (j start (+ j 1))) ((>= j end) res) + (vector-set! res i (vector-ref vec j))))) (define (list->vector ls) (let ((vec (make-vector (length ls) #f)))