Function: math-infinitep

math-infinitep is a byte-compiled function defined in calc.el.gz.

Signature

(math-infinitep A &optional UNDIR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun math-infinitep (a &optional undir)
  (while (and (consp a) (memq (car a) '(* / neg)))
    (if (or (not (eq (car a) '*)) (math-infinitep (nth 1 a)))
	(setq a (nth 1 a))
      (setq a (nth 2 a))))
  (and (consp a)
       (eq (car a) 'var)
       (memq (nth 2 a) '(var-inf var-uinf var-nan))
       (if (and undir (eq (nth 2 a) 'var-inf))
	   '(var uinf var-uinf)
	 a)))