Mercurial > emacs

changeset 58311:4f2b521da5aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-simplify-divisor): Remove unnecessary variables.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 18 Nov 2004 16:30:27 +0000
parents 0f51d789a78e
children 8925634e39f0
files lisp/calc/calc-alg.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))