# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1100795427 0
# Node ID 4f2b521da5aa78f0bf8582fdb0b8a11af4811870
# Parent  0f51d789a78ef54008683c83f19d8870cb571139
(math-simplify-divisor):  Remove unnecessary variables.

diff -r 0f51d789a78e -r 4f2b521da5aa lisp/calc/calc-alg.el
--- a/lisp/calc/calc-alg.el	Thu Nov 18 16:09:38 2004 +0000
+++ b/lisp/calc/calc-alg.el	Thu Nov 18 16:30:27 2004 +0000
@@ -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))