diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-08 00:14:16 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-08 00:14:16 +0000 |
| commit | 9066adc420e321b5d21982b0c1edc092d26902f2 (patch) | |
| tree | 065cca4a097981c1b39c3207993cfaccc36b208f | |
| parent | a6a0d3cbf5a9c767d747649c8811295218fbb596 (diff) | |
| download | emacs-9066adc420e321b5d21982b0c1edc092d26902f2.tar.gz | |
(math-bignum-digit-size,math-small-integer-size): Evaluate when compiled.
| -rw-r--r-- | lisp/calc/calc.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index d85ec55d175..8eebee90930 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2292,10 +2292,12 @@ length of the allowable Emacs integers N0, N1,... 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.") |