Function: cl--finite-do

cl--finite-do is a byte-compiled function defined in cl-extra.el.gz.

Signature

(cl--finite-do FUNC A B)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-extra.el.gz
;; Implementation limits.

(defun cl--finite-do (func a b)
  (condition-case _
      (let ((res (funcall func a b)))   ; check for IEEE infinity
	(and (numberp res) (/= res (/ res 2)) res))
    (arith-error nil)))