Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix indexing in (vector-copy)

Browse source
This commit is contained in:
Justin Ethier 2016-08-30 17:34:39 -04:00
parent 0c941d2e8d
commit 587d83f6b7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/base.sld
View file

@ -827,7 +827,7 @@
((= i end) ((= i end)
new-vec) new-vec)
(else (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 (+ i 1) new-vec))))))
(loop start (make-vector (- end start) #f)))) (loop start (make-vector (- end start) #f))))
;; TODO: does not quite meet r7rs spec, should check if vectors overlap ;; TODO: does not quite meet r7rs spec, should check if vectors overlap