diff options
| -rw-r--r-- | lisp/calc/calc-math.el | 6 |
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 |