Mercurial > emacs

changeset 81749:922131bc4a93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.")