;;; $Id: vector-map.scm,v 1.2 2002/04/09 22:25:26 leavens Exp $

(load-quietly-from-lib "vector-generator.scm")

;; Springer-Friedman, program 9.9

(define vector-map
  (lambda (proc vec) 
    ((vector-generator (lambda (i) (proc (vector-ref vec i)))) 
     (vector-length vec))))