# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1183854362 0
# Node ID 95cbb77aca818f362b9ef05470d83e6b80edba38
# Parent  9c8ebe58afdde15d655df271b9e51a2b7a2a4f05
(math-bignum-logb-digit-size,math-bignum-digit-power-of-two):
Evaluate when compiled.

diff -r 9c8ebe58afdd -r 95cbb77aca81 lisp/calc/calc-bin.el
--- a/lisp/calc/calc-bin.el	Sun Jul 08 00:18:06 2007 +0000
+++ b/lisp/calc/calc-bin.el	Sun Jul 08 00:26:02 2007 +0000
@@ -40,7 +40,7 @@
 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.