;;; coops, no srfi-17
(define-method (column-set! (mat <matrix>) (col <fixnum>) val)
  (if (not (= (f64vector-length val) (nrow mat)))
      (error "val not same length as matrix columns")
      (for-each
       (lambda (i) (set! (elem mat i col) (f64vector-ref val i)))
       (iota (f64vector-length val)))))

;;; srfi-17, no coops
(define ((setter column) mat col val)
  (if (not (= (f64vector-length val) (nrow mat)))
      (error "val not same length as matrix columns")
      (for-each
       (lambda (i) (set! (elem mat i col) (f64vector-ref val i)))
       (iota (f64vector-length val)))))