patch from Chongkai to fix a problem in SRFI-43
svn: r6207
This commit is contained in:
parent
1797a004ba
commit
9ec0fcf267
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user