From a6a0d3cbf5a9c767d747649c8811295218fbb596 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 8 Jul 2007 00:11:09 +0000 Subject: [PATCH] (math-bignum-digit-length): Evaluate when compiled. --- lisp/calc/calc.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.39.2