Added comment.

(math-polynomial-base): Replace variable mpb-top-expr by
math-poly-base-top-expr.

1 files changed, 8 insertions, 4 deletions

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))