diff options
| author | Jay Belanger <[email protected]> | 2004-11-25 05:51:40 +0000 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2004-11-25 05:51:40 +0000 |
| commit | 885e6671fc6045c0723e9c65e1e8288142bbeb80 (patch) | |
| tree | ca33e94c6e9aecd42f8eda89231e32e1c37bc9c5 /lisp/calc/calc-alg.el | |
| parent | 7092c5e89c51bbae72ab3419aef6b50464c5a6a9 (diff) | |
Added comment.
(math-polynomial-base): Replace variable mpb-top-expr by
math-poly-base-top-expr.
Diffstat (limited to 'lisp/calc/calc-alg.el')
| -rw-r--r-- | lisp/calc/calc-alg.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el index d64e7d7aac..cbf1dfbe79 100644 --- a/lisp/calc/calc-alg.el +++ b/lisp/calc/calc-alg.el @@ -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)) |