Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix flatten-vector->list on empty vectors.

Browse source 
Closes #976.

Complements of Bradley Lucier.
This commit is contained in:
Alex Shinn 2024-05-27 23:05:15 +09:00
parent 2b1d2d99a8
commit 11984c6eb3
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/231/transforms.scm
View file

@ -578,7 +578,9 @@
(define (flatten-vector->list vec d) (define (flatten-vector->list vec d)
(cond (cond
((not (vector? vec)) '()) ((not (vector? vec)) '())
((and (positive? d) (vector? (vector-ref vec 0))) ((and (positive? d)
(positive? (vector-length vec))
(vector? (vector-ref vec 0)))
(append-map (lambda (x) (flatten-vector->list x (- d 1))) (append-map (lambda (x) (flatten-vector->list x (- d 1)))
(vector->list vec))) (vector->list vec)))
(else (vector->list vec)))) (else (vector->list vec))))