Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 23:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of github.com:ashinn/chibi-scheme

Browse source
This commit is contained in:
Alex Shinn 2020-05-11 10:45:24 +09:00
commit 426579eef2
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/srfi/133/vector.scm
View file

@ -163,12 +163,13 @@
(define (vector-every pred? vec1 . o) (define (vector-every pred? vec1 . o)
(let ((len (apply min (vector-length vec1) (map vector-length o)))) (let ((len (apply min (vector-length vec1) (map vector-length o))))
(let lp ((i 0)) (or (zero? len)
(let ((x (apply pred? (vector-ref vec1 i) (let lp ((i 0))
(map (lambda (v) (vector-ref v i)) o)))) (let ((x (apply pred? (vector-ref vec1 i)
(if (= i (- len 1)) (map (lambda (v) (vector-ref v i)) o))))
x (if (= i (- len 1))
(and x (lp (+ i 1)))))))) x
(and x (lp (+ i 1)))))))))
(define (vector-swap! vec i j) (define (vector-swap! vec i j)
(let ((tmp (vector-ref vec i))) (let ((tmp (vector-ref vec i)))