Function: math-floor

math-floor is an autoloaded and byte-compiled function defined in calc-misc.el.gz.

Signature

(math-floor A &optional FLOOR-PREC)

Aliases

calcFunc-floor

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
;;;###autoload
(defun math-floor (a &optional floor-prec)    ;  [Public]
  (cond (floor-prec
	 (require 'calc-ext)
	 (math-floor-special a floor-prec))
	((Math-integerp a) a)
	((Math-messy-integerp a) (math-trunc a))
	((Math-realp a)
	 (if (Math-negp a)
	     (math-add (math-trunc a) -1)
	   (math-trunc a)))
	(t (require 'calc-ext)
	   (let ((math-floor-prec floor-prec))
	     (math-floor-fancy a)))))