Function: math-trunc

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

Signature

(math-trunc A &optional TRUNC-PREC)

Aliases

calcFunc-trunc

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
;;;###autoload
(defun math-trunc (a &optional trunc-prec)
  (cond (trunc-prec
	 (require 'calc-ext)
	 (math-trunc-special a trunc-prec))
	((Math-integerp a) a)
	((Math-looks-negp a)
	 (math-neg (math-trunc (math-neg a))))
	((eq (car a) 'float)
	 (math-scale-int (nth 1 a) (nth 2 a)))
	(t (require 'calc-ext)
	   (let ((math-trunc-prec trunc-prec))
	     (math-trunc-fancy a)))))