aop-r7rs/aop/9.sld

(define-library (aop 9)
  (import (scheme base))
  (export vector-generator)
  (begin
    (define (vector-generator gen-proc)
      (lambda (size)
        (list->vector
         (let loop ((i 0)
                    (out '()))
           (if (< i size)
               (loop (+ i 1)
                     (cons (gen-proc i) out))
               (reverse out))))))))