(math-simplify-divisor): Remove unnecessary variables.

diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index 014e7c3eddfbc2b6376a3c61eb413d012ae975a6..d64e7d7aac1030eccac03825da37d3c853edae84 100644 (file)
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -501,9 +501,9 @@
                            (eq signs 5))
                       math-living-dangerously)))
             (math-numberp (car np)))
-        (let ((n (car np))
-              d dd
-              (safe t) (scalar (math-known-scalarp n)))
+        (let (d
+               (safe t) 
+               (scalar (math-known-scalarp (car np))))
           (while (and (eq (car-safe (setq d (car dp))) '*)
                       safe)
             (math-simplify-one-divisor np (cdr d))