From 89027174d39215f3e615b376f15675a73ba917a3 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 17 Aug 2007 20:19:36 +0000 Subject: [PATCH] (math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const): Remove `eval-when-compile's. --- lisp/calc/calc-ext.el | 10 ++++------ 1 file 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 -- 2.39.2