Function: math-make-vec-dimen

math-make-vec-dimen is a byte-compiled function defined in calc-vec.el.gz.

Signature

(math-make-vec-dimen OBJ DIMS)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-vec.el.gz
(defun math-make-vec-dimen (obj dims)
  (if dims
      (if (natnump (car dims))
	  (if (or (cdr dims)
		  (not (math-numberp obj)))
	      (cons 'vec (copy-sequence
			  (make-list (car dims)
				     (math-make-vec-dimen obj (cdr dims)))))
	    (cons 'vec (make-list (car dims) obj)))
	(math-reject-arg (car dims) 'fixnatnump))
    obj))