Function: math-clean-set

math-clean-set is an autoloaded and byte-compiled function defined in calc-vec.el.gz.

Signature

(math-clean-set A &optional ALWAYS-VEC)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-vec.el.gz
(defun math-clean-set (a &optional always-vec)
  (let ((p a))
    (while (cdr p)
      (if (and (eq (car-safe (nth 1 p)) 'intv)
	       (Math-equal (nth 2 (nth 1 p)) (nth 3 (nth 1 p))))
	  (setcar (cdr p) (nth 2 (nth 1 p))))
      (setq p (cdr p)))
    (if (and (not (cdr (cdr a)))
	     (eq (car-safe (nth 1 a)) 'intv)
	     (not always-vec))
	(nth 1 a)
      a)))