aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/calc/calc-math.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index a4dad15c14e..3e4743d58ae 100644
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -1794,16 +1794,14 @@ If this can't be done, return NIL."
1794 (math-lnp1-series nextsum (1+ n) nextx x)))) 1794 (math-lnp1-series nextsum (1+ n) nextx x))))
1795 1795
1796(defconst math-approx-ln-10 1796(defconst math-approx-ln-10
1797 (eval-when-compile 1797 (math-read-number-simple "2.302585092994045684018")
1798 (math-read-number-simple "2.302585092994045684018"))
1799 "An approximation for ln(10).") 1798 "An approximation for ln(10).")
1800 1799
1801(math-defcache math-ln-10 math-approx-ln-10 1800(math-defcache math-ln-10 math-approx-ln-10
1802 (math-ln-raw-2 '(float 1 1))) 1801 (math-ln-raw-2 '(float 1 1)))
1803 1802
1804(defconst math-approx-ln-2 1803(defconst math-approx-ln-2
1805 (eval-when-compile 1804 (math-read-number-simple "0.693147180559945309417")
1806 (math-read-number-simple "0.693147180559945309417"))
1807 "An approximation for ln(2).") 1805 "An approximation for ln(2).")
1808 1806
1809(math-defcache math-ln-2 math-approx-ln-2 1807(math-defcache math-ln-2 math-approx-ln-2