From: Jay Belanger Date: Thu, 25 Nov 2004 05:51:40 +0000 (+0000) Subject: Added comment. X-Git-Tag: ttn-vms-21-2-B4~3673 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=885e6671fc6045c0723e9c65e1e8288142bbeb80;p=emacs.git Added comment. (math-polynomial-base): Replace variable mpb-top-expr by math-poly-base-top-expr. --- diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el index d64e7d7aac1..cbf1dfbe79b 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))