From 587d83f6b78c969abcb99b56754fa961073697c5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 30 Aug 2016 17:34:39 -0400
Subject: [PATCH] Fix indexing in (vector-copy)

---
 scheme/base.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index f7db8547..97f9a885 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -827,7 +827,7 @@
                         ((= i end)
                          new-vec)
                         (else
-                           (vector-set! new-vec i (vector-ref vec i))
+                           (vector-set! new-vec (- i start) (vector-ref vec i))
                            (loop (+ i 1) new-vec))))))
         (loop start (make-vector (- end start) #f))))
     ;; TODO: does not quite meet r7rs spec, should check if vectors overlap