From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 22 Jun 2007 06:12:35 +0000 (+0000)
Subject: (math-approx-ln-10, math-approx-ln-2): New variables to use in caches.
X-Git-Tag: emacs-pretest-23.0.90~12162
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4603f755b424a4f6f484712949fdc80ff38cf035;p=emacs.git

(math-approx-ln-10, math-approx-ln-2): New variables to use in caches.
---

diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index b6481d30b73..610ed304106 100644
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -1717,10 +1717,18 @@
 	sum
       (math-lnp1-series nextsum (1+ n) nextx x))))
 
-(math-defcache math-ln-10 (float (bigpos 018 684 045 994 092 585 302 2) -21)
+(defconst math-approx-ln-10
+  (eval-when-compile
+    (math-read-number-simple "2.302585092994045684018")))
+     
+(math-defcache math-ln-10 math-approx-ln-10
   (math-ln-raw-2 '(float 1 1)))
 
-(math-defcache math-ln-2 (float (bigpos 417 309 945 559 180 147 693) -21)
+(defconst math-approx-ln-2
+  (eval-when-compile
+    (math-read-number-simple "0.693147180559945309417")))
+
+(math-defcache math-ln-2 math-approx-ln-2
   (math-ln-raw-3 (math-float '(frac 1 3))))