diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-18 16:30:27 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-18 16:30:27 +0000 |
| commit | 358c90f4f27133fec658ac8d1823323d914e93e8 (patch) | |
| tree | 97214f39ccb3a2efb44345c9deff324ea103e914 /lisp/calc/calc-alg.el | |
| parent | 8ec0cdb34bdd30ac4baf4e50a0625ee3efb7dc54 (diff) | |
| download | emacs-358c90f4f27133fec658ac8d1823323d914e93e8.tar.gz emacs-358c90f4f27133fec658ac8d1823323d914e93e8.tar.bz2 emacs-358c90f4f27133fec658ac8d1823323d914e93e8.zip | |
(math-simplify-divisor): Remove unnecessary variables.
Diffstat (limited to 'lisp/calc/calc-alg.el')
| -rw-r--r-- | lisp/calc/calc-alg.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |