Commit a6a0d3cb authored by Jay Belanger's avatar Jay Belanger
Browse files

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

parent 94c95a35
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment