Function: math-equal-int

math-equal-int is a byte-compiled function defined in calc-ext.el.gz.

Signature

(math-equal-int A B)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
;;; True if A is numerically equal to the integer B.  [P N S] [Public]
;;; B must not be a multiple of 10.
(defun math-equal-int (a b)
  (or (eql a b)
      (and (eq (car-safe a) 'float)
	   (eql (nth 1 a) b)
	   (= (nth 2 a) 0))))