Lines Matching refs:vects
13 (let set-vals ((vects args)
15 (vals (make-vector (let total-length ((vects args) (len 0))
16 (cond ((null? vects) len)
17 ((vector? (car vects)) (total-length (cdr vects) (+ len (length (car vects)))))
18 ((car vects) (total-length (cdr vects) (+ len 1)))
19 (else (total-length (cdr vects) len)))))))
20 (cond ((null? vects) vals)
21 ((vector? (car vects))
22 (let ((vect (car vects)))
25 ((= i len) (set-vals (cdr vects) (+ start len) vals))
27 ((car vects)
28 (set! (vals start) (car vects))
29 (set-vals (cdr vects) (+ start 1) vals))
30 (else (set-vals (cdr vects) start vals)))))