From 16635351f56883730e7cb89959695173244e7c8e Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 1 Oct 2007 18:16:03 +0000 Subject: [PATCH] (math-largest-emacs-expt): Remove unnecessary condition check. --- lisp/calc/calc-math.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el index 1aab53524f8..3a2319e9a2c 100644 --- a/lisp/calc/calc-math.el +++ b/lisp/calc/calc-math.el @@ -57,12 +57,10 @@ (pow 1e2)) ;; The following loop is for efficiency; it should stop when ;; 10^(2x) is too large. This could be indicated by a range - ;; error when computing 10^(2x), an infinite value for 10^(2x), - ;; or (!) a zero value for 10^(2x). + ;; error when computing 10^(2x) or an infinite value for 10^(2x). (while (and pow - (< pow 1.0e+INF) - (> pow 0.0)) + (< pow 1.0e+INF)) (setq x (* 2 x)) (setq pow (condition-case nil (expt 10.0 (* 2 x)) @@ -73,8 +71,7 @@ (error nil))) (while (and pow - (< pow 1.0e+INF) - (> pow 0.0)) + (< pow 1.0e+INF)) (setq x (1+ x)) (setq pow (condition-case nil (expt 10.0 (1+ x)) -- 2.39.5