From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 18 Nov 2004 16:30:27 +0000 (+0000)
Subject: (math-simplify-divisor):  Remove unnecessary variables.
X-Git-Tag: ttn-vms-21-2-B4~3853
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=358c90f4f27133fec658ac8d1823323d914e93e8;p=emacs.git

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

diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index 014e7c3eddf..d64e7d7aac1 100644
--- 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))