Mercurial > emacs

changeset 85003:155b89cb60fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-largest-emacs-expt): Remove unnecessary condition check.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 01 Oct 2007 18:16:03 +0000
parents de9abb25771b
children b516a4e62b87
files lisp/calc/calc-math.el
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-math.el	Mon Oct 01 17:23:39 2007 +0000
+++ b/lisp/calc/calc-math.el	Mon Oct 01 18:16:03 2007 +0000
@@ -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))