From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 17 Aug 2007 20:19:36 +0000 (+0000)
Subject: (math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const):
X-Git-Tag: emacs-pretest-23.0.90~11465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89027174d39215f3e615b376f15675a73ba917a3;p=emacs.git

(math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const):
Remove `eval-when-compile's.
---

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