# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1182713863 0
# Node ID d175ac539ca9cbd44bc0905a29c106a12b077119
# Parent  a225332a57fd03c443a996383aeae8db85eb1875
(math-div2-bignum): Use math-bignum-digit-size.

diff -r a225332a57fd -r d175ac539ca9 lisp/calc/calc-misc.el
--- a/lisp/calc/calc-misc.el	Sun Jun 24 14:30:14 2007 +0000
+++ b/lisp/calc/calc-misc.el	Sun Jun 24 19:37:43 2007 +0000
@@ -579,7 +579,7 @@
 
 (defun math-div2-bignum (a)   ; [l l]
   (if (cdr a)
-      (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) 500))
+      (cons (+ (/ (car a) 2) (* (% (nth 1 a) 2) (/ math-bignum-digit-size 2)))
 	    (math-div2-bignum (cdr a)))
     (list (/ (car a) 2))))