Mercurial > emacs
changeset 58506:9e42b44110bf
Added comment.
(math-polynomial-base): Replace variable mpb-top-expr by
math-poly-base-top-expr.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 25 Nov 2004 05:51:40 +0000 |
| parents | 4460d7e28fdd |
| children | c8e117d0c5ff |
| files | lisp/calc/calc-alg.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-alg.el Thu Nov 25 04:00:23 2004 +0000 +++ b/lisp/calc/calc-alg.el Thu Nov 25 05:51:40 2004 +0000 @@ -1587,14 +1587,18 @@ (defvar math-poly-base-const-ok) (defvar math-poly-base-pred) -(defun math-polynomial-base (mpb-top-expr &optional math-poly-base-pred) +;; The variable math-poly-base-top-expr is local to math-polynomial-base, +;; but is used by math-polynomial-p1 in calc-poly.el, which is called +;; by math-polynomial-base. + +(defun math-polynomial-base (math-poly-base-top-expr &optional math-poly-base-pred) (or math-poly-base-pred (setq math-poly-base-pred (function (lambda (base) (math-polynomial-p - mpb-top-expr base))))) + math-poly-base-top-expr base))))) (or (let ((math-poly-base-const-ok nil)) - (math-polynomial-base-rec mpb-top-expr)) + (math-polynomial-base-rec math-poly-base-top-expr)) (let ((math-poly-base-const-ok t)) - (math-polynomial-base-rec mpb-top-expr)))) + (math-polynomial-base-rec math-poly-base-top-expr)))) (defun math-polynomial-base-rec (mpb-expr) (and (not (Math-objvecp mpb-expr))