mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(math-largest-emacs-expt): Remove unnecessary condition check.

Browse Source
This commit is contained in:
Jay Belanger 2007-10-01 18:16:03 +00:00
parent 9417221512
commit 16635351f5
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/calc/calc-math.el
View File

@ -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))