[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/07/08 00:14:16

Index: calc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- calc.el     8 Jul 2007 00:11:09 -0000       1.85
+++ calc.el     8 Jul 2007 00:14:16 -0000       1.86
@@ -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.")