Fix flatten-vector->list on empty vectors.

Closes #976. Complements of Bradley Lucier.
ashinn · May 27, 2024 · 11984c6 · 11984c6
1 parent 2b1d2d9
commit 11984c6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm
@@ -578,7 +578,9 @@
 (define (flatten-vector->list vec d)
   (cond
    ((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)))
                 (vector->list vec)))
    (else (vector->list vec))))