vector-fill!   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/init.xtm

Implementation

(define (vector-fill! v e)
  (let ((n (vector-length v)))
    (let loop ((i 0))
      (if (= i n)
          v
          (begin (vector-set! v i e) (loop (succ i)))))))


Back to Index