simple vector addition... added by szablica on Tue Feb 26 21:48:30 2013

(use srfi-1)

(define-record vect x y)

(define (vect-add . vs)

  (define (add-two a b)
    (make-vect (+ (vetc-x a) (vetc-x b))
               (+ (vetc-y a) (vetc-y b))))

  (fold add-two zero-vect vs))