From 11984c6eb33d11f77af1e111880206c2150cb091 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 27 May 2024 23:05:15 +0900 Subject: [PATCH] Fix flatten-vector->list on empty vectors. Closes #976. Complements of Bradley Lucier. --- lib/srfi/231/transforms.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index 2e5c304c..4903f990 100644 --- 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))))