diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-23 04:36:29 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-23 04:36:29 +0000 |
| commit | b593f1de16112e8a59d1db61e1b2c52dce993a99 (patch) | |
| tree | 5c5b81afa89ea73ae03ffff41a179309fa6f6a81 /lisp/calc/calc-ext.el | |
| parent | e72e768b75b01340f3e9d190cb0927e7fa1c3733 (diff) | |
| download | emacs-b593f1de16112e8a59d1db61e1b2c52dce993a99.tar.gz | |
(math-fixnum-big): Use the variable math-bignum-digit-size.
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 9650bdffbcf..2816941f87a 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -2222,7 +2222,7 @@ calc-kill calc-kill-region calc-yank)))) (defun math-fixnum-big (a) (if (cdr a) - (+ (car a) (* (math-fixnum-big (cdr a)) 1000)) + (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size)) (car a))) (defvar math-simplify-only nil) |