Mercurial > emacs
diff lisp/calc/calc.el @ 81753:e4415539660a
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Don't eval when compiled.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 08 Jul 2007 01:40:33 +0000 |
| parents | 922131bc4a93 |
| children | b98604865ea0 988f1edc9674 |
line wrap: on
line diff
--- a/lisp/calc/calc.el Sun Jul 08 00:26:02 2007 +0000 +++ b/lisp/calc/calc.el Sun Jul 08 01:40:33 2007 +0000 @@ -2283,9 +2283,8 @@ -(defconst math-bignum-digit-length - (eval-when-compile - (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))) +(defconst math-bignum-digit-length 4 +; (truncate (/ (log10 (/ most-positive-fixnum 2)) 2)) "The length of a \"digit\" in Calc bignums. If a big integer is of the form (bigpos N0 N1 ...), this is the length of the allowable Emacs integers N0, N1,... @@ -2293,11 +2292,11 @@ largest Emacs integer.") (defconst math-bignum-digit-size - (eval-when-compile (expt 10 math-bignum-digit-length)) + (expt 10 math-bignum-digit-length) "An upper bound for the size of the \"digit\"s in Calc bignums.") (defconst math-small-integer-size - (eval-when-compile (expt 10 (* 2 math-bignum-digit-length))) + (expt math-bignum-digit-size 2) "An upper bound for the size of \"small integer\"s in Calc.")