Mercurial > emacs

diff lisp/calc/calc-ext.el @ 81576:c17a6c377cf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-fixnum-big): Use the variable math-bignum-digit-size.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sat, 23 Jun 2007 04:36:29 +0000
parents aa48b88c6f48
children 79a229b4a7de
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el	Sat Jun 23 04:30:24 2007 +0000
+++ b/lisp/calc/calc-ext.el	Sat Jun 23 04:36:29 2007 +0000
@@ -2222,7 +2222,7 @@
 
 (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)