From 885e6671fc6045c0723e9c65e1e8288142bbeb80 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 25 Nov 2004 05:51:40 +0000 Subject: [PATCH] Added comment. (math-polynomial-base): Replace variable mpb-top-expr by math-poly-base-top-expr. --- lisp/calc/calc-alg.el | 12 ++++++++---- 1 file 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)) -- 2.39.5