From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 8 Jul 2007 00:26:02 +0000 (+0000)
Subject: (math-bignum-logb-digit-size,math-bignum-digit-power-of-two):
X-Git-Tag: emacs-pretest-23.0.90~12008
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f2dcb8bcffdda00fadacf9b4166c1ec47c95d0e;p=emacs.git

(math-bignum-logb-digit-size,math-bignum-digit-power-of-two):
Evaluate when compiled.
---

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
 the size of a Calc bignum digit.")
 
 (defconst math-bignum-digit-power-of-two
-  (eval-when-compile (expt 2 math-bignum-logb-digit-size))
+  (eval-when-compile (expt 2 (logb math-bignum-digit-size)))
   "The largest power of 2 less than the size of a Calc bignum digit.")
 
 ;;; b-prefix binary commands.