diff options
| author | Jay Belanger | 2007-08-17 20:18:45 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-08-17 20:18:45 +0000 |
| commit | b411074b9d70cc761d36e410140e88a871258a42 (patch) | |
| tree | d39b80a770c743d8db1c1f3ffb6fddca5ba8eda5 | |
| parent | 37cecd78a0c473d992fa66b763d41034fc4719bb (diff) | |
| download | emacs-b411074b9d70cc761d36e410140e88a871258a42.tar.gz emacs-b411074b9d70cc761d36e410140e88a871258a42.zip | |
(math-bignum-logb-digit-size,math-bignum-digit-power-of-two):
Remove `eval-when-compile's.
| -rw-r--r-- | lisp/calc/calc-bin.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index c58d0addd77..0f219272a5f 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el | |||
| @@ -34,13 +34,13 @@ | |||
| 34 | 34 | ||
| 35 | ;;; Some useful numbers | 35 | ;;; Some useful numbers |
| 36 | (defconst math-bignum-logb-digit-size | 36 | (defconst math-bignum-logb-digit-size |
| 37 | (eval-when-compile (logb math-bignum-digit-size)) | 37 | (logb math-bignum-digit-size) |
| 38 | "The logb of the size of a bignum digit. | 38 | "The logb of the size of a bignum digit. |
| 39 | This is the largest value of B such that 2^B is less than | 39 | This is the largest value of B such that 2^B is less than |
| 40 | the size of a Calc bignum digit.") | 40 | the size of a Calc bignum digit.") |
| 41 | 41 | ||
| 42 | (defconst math-bignum-digit-power-of-two | 42 | (defconst math-bignum-digit-power-of-two |
| 43 | (eval-when-compile (expt 2 (logb math-bignum-digit-size))) | 43 | (expt 2 (logb math-bignum-digit-size)) |
| 44 | "The largest power of 2 less than the size of a Calc bignum digit.") | 44 | "The largest power of 2 less than the size of a Calc bignum digit.") |
| 45 | 45 | ||
| 46 | ;;; b-prefix binary commands. | 46 | ;;; b-prefix binary commands. |