Function: math-make-frac

math-make-frac is an autoloaded and byte-compiled function defined in calc-frac.el.gz.

Signature

(math-make-frac NUM DEN)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-frac.el.gz
;;;; Fractions.

;;; Build a normalized fraction.  [R I I]
;;; (This could probably be implemented more efficiently than using
;;;  the plain gcd algorithm.)
(defun math-make-frac (num den)
  (if (Math-integer-negp den)
      (setq num (math-neg num)
	    den (math-neg den)))
  (let ((gcd (math-gcd num den)))
    (if (eq gcd 1)
	(if (eq den 1)
	    num
	  (list 'frac num den))
      (if (equal gcd den)
	  (math-quotient num gcd)
	(list 'frac (math-quotient num gcd) (math-quotient den gcd))))))