Function: math-fix-int-intv

math-fix-int-intv is a byte-compiled function defined in calc-stat.el.gz.

Signature

(math-fix-int-intv X)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-stat.el.gz
(defun math-fix-int-intv (x)
  (if (math-floatp x)
      x
    (list 'intv 3
	  (if (memq (nth 1 x) '(2 3)) (nth 2 x) (math-add (nth 2 x) 1))
	  (if (memq (nth 1 x) '(1 3)) (nth 3 x) (math-sub (nth 3 x) 1)))))