From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 24 Jun 2007 19:37:43 +0000 (+0000)
Subject: (math-div2-bignum): Use math-bignum-digit-size.
X-Git-Tag: emacs-pretest-23.0.90~12127
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f164b8c846f0e77b1604b26adb3e3824cdd1c701;p=emacs.git

(math-div2-bignum): Use math-bignum-digit-size.
---

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index e9674ff938b..ecc304a5f5f 100644
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -579,7 +579,7 @@ loaded and the keystroke automatically re-typed."
 
 (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))))