Function: math-floatp

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

Signature

(math-floatp A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
;; True if A is a floating-point real or complex number.  [P x] [Public]
(defun math-floatp (a)
  (cond ((eq (car-safe a) 'float) t)
	((memq (car-safe a) '(cplx polar mod sdev intv))
	 (or (math-floatp (nth 1 a))
	     (math-floatp (nth 2 a))
	     (and (eq (car a) 'intv) (math-floatp (nth 3 a)))))
	((eq (car-safe a) 'date)
	 (math-floatp (nth 1 a)))))