; Copyright 1998 Lars T Hansen.
;
; $Id$
;
; Useful vector functions.

; This is now standard (with variable arity) in R7RS.

;(define (vector-copy v)
;  (let ((v2 (make-vector (vector-length v) #f)))
;    (do ((i (- (vector-length v) 1) (- i 1)))
;        ((< i 0) v2)
;      (vector-set! v2 i (vector-ref v i)))))

; eof
