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

This commit is contained in:
Jay Belanger 2007-06-23 04:36:29 +00:00
parent e72e768b75
commit b593f1de16

View file

@ -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)