Mercurial > emacs
changeset 81748:61fb5a974af6
(math-bignum-digit-length): Evaluate when compiled.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 08 Jul 2007 00:11:09 +0000 |
| parents | 673f9f66c0e9 |
| children | 922131bc4a93 |
| files | lisp/calc/calc.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc.el Sun Jul 08 00:06:26 2007 +0000 +++ b/lisp/calc/calc.el Sun Jul 08 00:11:09 2007 +0000 @@ -2284,7 +2284,8 @@ (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 @@ '( "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)