# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1101361900 0
# Node ID 9e42b44110bfab0ff29465093022af8c539abaa2
# Parent  4460d7e28fddfb5fa911f7d993db3a9cd7976f71
Added comment.
(math-polynomial-base): Replace variable mpb-top-expr by
math-poly-base-top-expr.

diff -r 4460d7e28fdd -r 9e42b44110bf lisp/calc/calc-alg.el
--- 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))