From 9066adc420e321b5d21982b0c1edc092d26902f2 Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 8 Jul 2007 00:14:16 +0000
Subject: [PATCH] (math-bignum-digit-size,math-small-integer-size): Evaluate
 when compiled.

---
 lisp/calc/calc.el | 6 ++++--
 1 file 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.")
 
 
-- 
2.39.5