diff options
| author | Jay Belanger | 2004-11-18 16:30:27 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-11-18 16:30:27 +0000 |
| commit | 358c90f4f27133fec658ac8d1823323d914e93e8 (patch) | |
| tree | 97214f39ccb3a2efb44345c9deff324ea103e914 /lisp | |
| parent | 8ec0cdb34bdd30ac4baf4e50a0625ee3efb7dc54 (diff) | |
| download | emacs-358c90f4f27133fec658ac8d1823323d914e93e8.tar.gz emacs-358c90f4f27133fec658ac8d1823323d914e93e8.zip | |
(math-simplify-divisor): Remove unnecessary variables.
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 501 | (eq signs 5)) | 501 | (eq signs 5)) |
| 502 | math-living-dangerously))) | 502 | math-living-dangerously))) |
| 503 | (math-numberp (car np))) | 503 | (math-numberp (car np))) |
| 504 | (let ((n (car np)) | 504 | (let (d |
| 505 | d dd | 505 | (safe t) |
| 506 | (safe t) (scalar (math-known-scalarp n))) | 506 | (scalar (math-known-scalarp (car np)))) |
| 507 | (while (and (eq (car-safe (setq d (car dp))) '*) | 507 | (while (and (eq (car-safe (setq d (car dp))) '*) |
| 508 | safe) | 508 | safe) |
| 509 | (math-simplify-one-divisor np (cdr d)) | 509 | (math-simplify-one-divisor np (cdr d)) |