From b593f1de16112e8a59d1db61e1b2c52dce993a99 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sat, 23 Jun 2007 04:36:29 +0000 Subject: [PATCH] (math-fixnum-big): Use the variable math-bignum-digit-size. --- lisp/calc/calc-ext.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2