# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1187381896 0
# Node ID 3b91823ccbc50b742385f7a72322ac6615441894
# Parent  8b8f5e5098093c845baaba49e8ab9755bf954403
(math-bignum-digit-length): Compute the appropriate value.

diff -r 8b8f5e509809 -r 3b91823ccbc5 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Fri Aug 17 19:57:14 2007 +0000
+++ b/lisp/calc/calc.el	Fri Aug 17 20:18:16 2007 +0000
@@ -2284,8 +2284,8 @@
 
 
 
-(defconst math-bignum-digit-length 4
-;  (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))
+(defconst math-bignum-digit-length 
+  (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))
   "The length of a \"digit\" in Calc bignums.
 If a big integer is of the form (bigpos N0 N1 ...), this is the
 length of the allowable Emacs integers N0, N1,...