changeset 81752:95cbb77aca81

(math-bignum-logb-digit-size,math-bignum-digit-power-of-two): Evaluate when compiled.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 08 Jul 2007 00:26:02 +0000
parents 9c8ebe58afdd
children e4415539660a
files lisp/calc/calc-bin.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.