(math-fixnum-big): Use the variable math-bignum-digit-size.

2007-06-23 04:36:29 +00:00
parent e72e768b75
commit b593f1de16
1 changed files with 1 additions and 1 deletions
--- 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)