patch from Chongkai to fix a problem in SRFI-43

svn: r6207
This commit is contained in:
Matthew Flatt 2007-05-12 00:36:21 +00:00
parent 1797a004ba
commit 9ec0fcf267

View File

@ -811,7 +811,7 @@
((vec)
(vector->list vec)) ;+++
((vec start)
(my-vector->list start (vector-length vec)))
(my-vector->list vec start (vector-length vec)))
((vec start end)
(do ((i (sub1 end) (sub1 i))
(result '() (cons (vector-ref vec i) result)))