Function: calcFunc-drat

calcFunc-drat is an autoloaded and byte-compiled function defined in calc-arith.el.gz.

Signature

(calcFunc-drat EXPR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-arith.el.gz
(defun calcFunc-drat (expr)
  (let ((types (math-possible-types expr)))
    (if (memq types '(1 4 5)) 1
      (if (= (logand types 5) 0) 0
	(math-reject-arg expr "Rational number expected")))))