diff options
| author | Jay Belanger | 2007-07-08 00:26:02 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-07-08 00:26:02 +0000 |
| commit | 9f2dcb8bcffdda00fadacf9b4166c1ec47c95d0e (patch) | |
| tree | bf0a0f3df7c3159b5dfd4d02e27a45ed9e2030ea | |
| parent | 4346200eb93682e0dda0149e71ea3ff462c0f397 (diff) | |
| download | emacs-9f2dcb8bcffdda00fadacf9b4166c1ec47c95d0e.tar.gz emacs-9f2dcb8bcffdda00fadacf9b4166c1ec47c95d0e.zip | |
(math-bignum-logb-digit-size,math-bignum-digit-power-of-two):
Evaluate when compiled.
| -rw-r--r-- | lisp/calc/calc-bin.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index fa8ba118c8c..2dde6216a06 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el | |||
| @@ -40,7 +40,7 @@ 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 math-bignum-logb-digit-size)) | 43 | (eval-when-compile (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. |