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

s/max/max in vector-segment (issue #677)

Browse source
This commit is contained in:
Alex Shinn 2020-08-08 16:20:01 +09:00
parent ffeb960997
commit a8e35f90fa
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/srfi/160/uvector.scm
View file

@ -154,12 +154,10 @@
(define (vector-segment vec n) (define (vector-segment vec n)
(let ((len (uvector-length vec))) (let ((len (uvector-length vec)))
(let lp ((i 0) (res '())) (let lp ((i 0) (res '()))
(let ((diff (- len i))) (if (>= i len)
(if (zero? diff) (reverse res)
(reverse res) (lp (+ i n)
(lp (max (+ i n) len) (cons (vector-copy vec i (min (+ i n) len)) res))))))
(cons (vector-copy vec i n) res)))))))
(define (vector-fold kons knil vec1 . o) (define (vector-fold kons knil vec1 . o)
(let ((len (uvector-length vec1))) (let ((len (uvector-length vec1)))