Function: calcFunc-venum

calcFunc-venum is an autoloaded and byte-compiled function defined in calc-vec.el.gz.

Signature

(calcFunc-venum A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-vec.el.gz
(defun calcFunc-venum (a)
  (setq a (calcFunc-vfloor a t))
  (or (math-constp a) (math-reject-arg a "*Set must be finite"))
  (let* ((prev a) (this (cdr prev)) this-val next this-last)
    (while this
      (setq next (cdr this)
			this-val (car this))
      (if (eq (car-safe this-val) 'intv)
		  (progn
			(setq this (cdr (calcFunc-index (math-add
											 (math-sub (nth 3 this-val)
													   (nth 2 this-val))
											 1)
											(nth 2 this-val))))
			(setq this-last (last this))
			(setcdr this-last next)
			(setcdr prev this)
			(setq prev this-last))
		(setq prev this))
	  (setq this next)))
  a)