Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in vector-copy for non-zero start.

Browse source
This commit is contained in:
Alex Shinn 2012-11-01 22:55:07 +09:00
parent c8f3ba78a8
commit 72094b760b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/init-7.scm
View file

@ -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)))