(math-expand-form): Use declared variable math-mt-many.

diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el
index 213b7dc447415ad0697e1cbd077920100a92eb9c..6ede08883199c46383beaeae49e7728de5f6555d 100644 (file)
--- a/lisp/calc/calc-poly.el
+++ b/lisp/calc/calc-poly.el
@@ -1040,7 +1040,7 @@
              (memq (car-safe (nth 1 expr)) '(+ -))
              (integerp (nth 2 expr))
              (if (> (nth 2 expr) 0)
-                 (or (and (or (> mmt-many 500000) (< mmt-many -500000))
+                 (or (and (or (> math-mt-many 500000) (< math-mt-many -500000))
                           (math-expand-power (nth 1 expr) (nth 2 expr)
                                              nil t))
                      (list '*