Function: math-float

math-float is a byte-compiled function defined in calc.el.gz.

Signature

(math-float A)

Aliases

calcFunc-float

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
;;; Coerce A to be a float.  [F N; V V] [Public]
(defun math-float (a)
  (cond ((Math-integerp a) (math-make-float a 0))
	((eq (car a) 'frac) (math-div (math-float (nth 1 a)) (nth 2 a)))
	((eq (car a) 'float) a)
	((memq (car a) '(cplx polar vec hms date sdev mod))
	 (cons (car a) (mapcar #'math-float (cdr a))))
	(t (math-float-fancy a))))