Function: Math-posp

Math-posp is a byte-compiled function defined in calc-macs.el.gz.

Signature

(Math-posp A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-macs.el.gz
(defsubst Math-posp (a)
  (if (consp a)
      (if (memq (car a) '(frac float))
	  (Math-integer-posp (nth 1 a))
	(math-posp a))
    (> a 0)))