Searched refs:mratcheck (Results 1 – 5 of 5) sorted by last modified time
49 (setq fun (mratcheck fun))
267 (defun mratcheck (e) (if ($ratp e) (ratdisrep e) e)) function
234 (exp (float2rat (mratcheck *exp)))
78 (let ((e (mratcheck e))86 (setq x (mratcheck (car l)))
253 (cond ((not (integerp (setq x (mratcheck x))))256 ((not (integerp (setq n (mratcheck n)))) (list '($inrt) x n))