From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 8 Jul 2007 00:11:09 +0000 (+0000)
Subject: (math-bignum-digit-length): Evaluate when compiled.
X-Git-Tag: emacs-pretest-23.0.90~12011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6a0d3cbf5a9c767d747649c8811295218fbb596;p=emacs.git

(math-bignum-digit-length): Evaluate when compiled.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 48a1f915aad..d85ec55d175 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2284,7 +2284,8 @@ See calc-keypad for details."
 
 
 (defconst math-bignum-digit-length 
-  (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))
+  (eval-when-compile
+    (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,...
@@ -3574,13 +3575,13 @@ and all digits are kept, regardless of Calc's current precision."
       '( "2x"    *             190 191 )
       math-standard-opers))))
 
+(defvar math-expr-opers (math-standard-ops))
+
 (defun math-standard-ops-p ()
   (let ((meo (caar math-expr-opers)))
     (and (stringp meo)
          (string= meo "*"))))
 
-(defvar math-expr-opers (math-standard-ops))
-
 (defun math-expr-ops ()
   (if (math-standard-ops-p)
       (math-standard-ops)