Mercurial > emacs
changeset 81749:922131bc4a93
(math-bignum-digit-size,math-small-integer-size): Evaluate when compiled.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Sun, 08 Jul 2007 00:14:16 +0000 |
parents | 61fb5a974af6 |
children | e84fd23f66ff |
files | lisp/calc/calc.el |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc.el Sun Jul 08 00:11:09 2007 +0000 +++ b/lisp/calc/calc.el Sun Jul 08 00:14:16 2007 +0000 @@ -2292,10 +2292,12 @@ The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the largest Emacs integer.") -(defconst math-bignum-digit-size (expt 10 math-bignum-digit-length) +(defconst math-bignum-digit-size + (eval-when-compile (expt 10 math-bignum-digit-length)) "An upper bound for the size of the \"digit\"s in Calc bignums.") -(defconst math-small-integer-size (expt 10 (* 2 math-bignum-digit-length)) +(defconst math-small-integer-size + (eval-when-compile (expt 10 (* 2 math-bignum-digit-length))) "An upper bound for the size of \"small integer\"s in Calc.")