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

Handle empty vector.

Browse source
This commit is contained in:
Alex Shinn 2024-05-27 13:21:24 +09:00
parent 418d5c8a8c
commit 4396e8dd4e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -585,7 +585,7 @@
(let lp ((vec nested-vec) (lens '()) (d dimension)) (let lp ((vec nested-vec) (lens '()) (d dimension))
(cond (cond
((positive? d) ((positive? d)
(if (vector? vec) (if (and (vector? vec) (not (vector-empty? vec)))
(lp (vector-ref vec 0) (cons (vector-length vec) lens) (- d 1)) (lp (vector-ref vec 0) (cons (vector-length vec) lens) (- d 1))
(lp vec (cons 0 lens) (- d 1)))) (lp vec (cons 0 lens) (- d 1))))
(else (else