Mercurial > emacs

changeset 81750:e84fd23f66ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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:17:08 +0000
parents 922131bc4a93
children 9c8ebe58afdd
files lisp/calc/calc-bin.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-bin.el	Sun Jul 08 00:14:16 2007 +0000
+++ b/lisp/calc/calc-bin.el	Sun Jul 08 00:17:08 2007 +0000
@@ -34,13 +34,13 @@
 
 ;;; Some useful numbers
 (defconst math-bignum-logb-digit-size
-  (logb math-bignum-digit-size)
+  (eval-when-compile (logb math-bignum-digit-size))
   "The logb of the size of a bignum digit.
 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
-  (expt 2 math-bignum-logb-digit-size)
+  (eval-when-compile (expt 2 math-bignum-logb-digit-size))
   "The largest power of 2 less than the size of a Calc bignum digit.")
 
 ;;; b-prefix binary commands.