# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1183858833 0
# Node ID e4415539660a2cb52a7f343ee278c38a4e83e138
# Parent  95cbb77aca818f362b9ef05470d83e6b80edba38
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Don't eval when compiled.

diff -r 95cbb77aca81 -r e4415539660a lisp/calc/calc.el
--- 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.")