From 358c90f4f27133fec658ac8d1823323d914e93e8 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 18 Nov 2004 16:30:27 +0000 Subject: [PATCH] (math-simplify-divisor): Remove unnecessary variables. --- lisp/calc/calc-alg.el | 6 +++--- 1 file 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)) -- 2.39.5