Mercurial > emacs
diff lisp/calc/calc-alg.el @ 58311:4f2b521da5aa
(math-simplify-divisor): Remove unnecessary variables.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Thu, 18 Nov 2004 16:30:27 +0000 |
| parents | 7b70b40dbfc7 |
| children | 9e42b44110bf b637c617432f |
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))