Function: calc-clean

calc-clean is an autoloaded, interactive and byte-compiled function defined in calc-stuff.el.gz.

Signature

(calc-clean N)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-stuff.el.gz
;;; Conversions.

(defun calc-clean (n)
  (interactive "P")
  (calc-slow-wrapper
   (calc-with-default-simplification
    (let ((func (if (calc-is-hyperbolic) 'calcFunc-clean 'calcFunc-pclean)))
      (calc-enter-result 1 "cln"
			 (if n
			     (let ((n (prefix-numeric-value n)))
			       (list func
				     (calc-top-n 1)
				     (if (<= n 0)
					 (+ n calc-internal-prec)
				       n)))
			   (list func (calc-top-n 1))))))))