diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-08-17 20:19:36 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-08-17 20:19:36 +0000 |
| commit | 89027174d39215f3e615b376f15675a73ba917a3 (patch) | |
| tree | dc4a3a1276fb982fcb71c100ec05b03be68a7f10 /lisp/calc/calc-ext.el | |
| parent | 2aad2a84015bb66a4575e9ef1abd66d4889b8c15 (diff) | |
| download | emacs-89027174d39215f3e615b376f15675a73ba917a3.tar.gz | |
(math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const):
Remove `eval-when-compile's.
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 5a334778aa5..ab8f743eb34 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -1926,8 +1926,7 @@ calc-kill calc-kill-region calc-yank)))) ;;; Betcha didn't know that pi = 16 atan(1/5) - 4 atan(1/239). [F] [Public] (defconst math-approx-pi - (eval-when-compile - (math-read-number-simple "3.141592653589793238463")) + (math-read-number-simple "3.141592653589793238463") "An approximation for pi.") (math-defcache math-pi math-approx-pi @@ -1962,7 +1961,7 @@ calc-kill calc-kill-region calc-yank)))) (math-sqrt-float (math-two-pi))) (defconst math-approx-sqrt-e - (eval-when-compile (math-read-number-simple "1.648721270700128146849")) + (math-read-number-simple "1.648721270700128146849") "An approximation for sqrt(3).") (math-defcache math-sqrt-e math-approx-sqrt-e @@ -1976,9 +1975,8 @@ calc-kill calc-kill-region calc-yank)))) '(float 5 -1))) (defconst math-approx-gamma-const - (eval-when-compile - (math-read-number-simple - "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495")) + (math-read-number-simple + "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495") "An approximation for gamma.") (math-defcache math-gamma-const nil |